DISK BASIC 
UflRAVeLLCD n 



LEAX TABLE, Pq, 



ST A $FF20 



LDY $8©0 



LEAX &X 




FOR THE TANDY 

TRS-80 

COLOR COMPUTER 



TABLE OF CONTENTS 

FOREWORD 1 

INTRODUCTION 3 

HOW TO USE THIS BOOK 4 

DESCRIPTION OF DISK BASIC 5 

FILE CONTROL BLOCK STRUCTURE 6 

FILE ALLOCATION TABLE 9 

THE DIRECTORY 11 

1793 FLOPPY DISK CONTROLLER DESCRIPTION 13 

MACHINE LANGUAGE FILE INPUT/OUTPUT 17 

DISK BASIC RAM VARIABLES/BUFFERS 18 



APPENDICES 
MEMORY MAP 

DISASSEMBLY OF DISK BASIC 1.1 
DISASSEMBLY OF DISK BASIC 1.0 
DISK BASIC SYMBOL TABLE 1.1 
DISK BASIC SYMBOL TABLE 1.0 
DISK BASIC ROUTINES AND ENTRY POINTS 
DISK BASIC S DATA/ASCII TABLES 
DISK BASIC ERROR ENTRY POINTS 
ASCII CHART 



DISK BASIC UNRAVELLED II FOREWORD ORIGINAL: SPECTRAL ASSOC 

REVISED : 12/26/99 WALTER K ZYDHEK 

FOREWORD 

Due to the many requests for the Unravelled Series produced by Spectral 
Associates, and the fact that these books are rare and no longer in production, I 
have taken it upon myself to reproduce them in electronic .PDF (Adobe Acrobat®) 
format. 

I have re-disassembled the ROMs listed in this book, and added all the 
comments from the Original Extended Basic Unravelled Book. Some changes were made 
to make the book a little easier to read. 

1. The comments have been cleaned up some. In cases where a comments continued 
onto the next line, a * is placed in the Labels column, as well as a * at 
the beginning of each line of the comment. In cases where the previous 
comment used this format, a = was used. This was done in the original, but 
not all comments stuck to this format. 

2. I have renumbered all the line numbers. Each Appendix (with code) starts at 
Line 0001. 

3. Some spell checking, and context checking was done to verify accuracy. 

4. I used the Letter Gothic MT Bold Font. This allows for display of Slashed 
Zeros. I thought it important to be able to distinguish between and 0. 

5. All the Hex code now shows the Opcodes. 

There were other minor changes that were made to make viewing a little 
better. If any discrepancies arise, please let me know so that I may correct the 
errors. I can be contacted at: mai 1 to: wzyd he k@i nternetcds.com 

Special Thanks to Jean-Frangoi s Morin for pointing out those Oops to me. 
I d like to also thank those who have either given me, or loaned me their copy of 
the original Unravelled Series. 

About Me 

My name is Walter K. Zydhek. I ve been a Computer Hobbyist since 1984 when I 
received my 1 st Tandy Color Computer 2 for Christmas. It had 32K of ram, Cassette, 
and one Cartridge. I quickly learned to program in Basic and then moved into 
Assembly. 

Over the next few years, I saved to purchase the Multi-Pak Interface, Disk 
Drives, Modem, OS-9, and various Odds and Ends. 

I moved to Tampa Florida and in the move, My CoCo was damaged. I then 
replaced it with the CoCo 3. WOW what a difference. I added the 512K Ram Upgrade, A 
CM-8 color monitor, and joined the Carolwood CoCo Club. (Thanks Jean-Frangoi s for 
reminding me of the name.) 

I had a couple of close friends that helped me explore the world of CoCo and 
by this time, I knew that my CoCo would be my friend forever. I give special thanks 
to Steve Cohn, who helped me get started with ADOS. Two other people whose names I 
can t remember were very beneficial to my mastering of the CoCo. 

Shortly after getting my CoCo 3, I started BBS ing. Wow, a whole new world. 
My knowledge just kept growing. 
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A few years later, I moved to Oregon, then to Phoenix, Arizona to attend 
school. I studied Electronics Technology at Phoenix Institute of Technology. In the 
second year, we studied Micro-processor Theory. For our labs, we just happen to use 
the Tandy Color Computer 3 (for studying 6809 Processors). I had it made. In this 
class I added an EPROM programmer/reader to my list of hardware. My favorite 
instructor, Gary Angle & I spent many hours sharing information on the CoCo. At one 
time, we shared a joint project to disassemble ROMs from industrial machinery, 
which used the 6809 Processor. Using the CoCo to read the ROMs to work with. 

I even had a BBS running under OS-9 at one time. RiBBS I think it was. Very 
similar to QuickBBS and RemoteAccess BBS for the PC. 

In 1991, I finally converted over to PC, but never forgetting my CoCo. About 
5 years ago, My CoCo and all related material was stolen from me. And the CoCo 
world was just a memory. 

In the last 2 Years, my love for the CoCo has re-kindled. I have been 
partially content to use a CoCo Emulator for my PC. I tried the CoCo 2 Emulator by 
Jeff Vavasour. This was OK, but a lot was left out. I then purchased the CoCo 3 
Emulator. Much better, but would not use Double Sided Disks . Although it did have 
a Virtual Hard Drive for use in OS-9. 

I then wanted to better the CoCo Emulator, add use of PC hardware, Add 
Double Sided Disk functionality, and even make it Windows Native, instead of a Dos 
Box. Unfortunately I could not get the source code for the CoCo 3 Emulator. 

I then turned to Paul Burgin s Dragon 2/Coco 2 Emulator. This had source code 
available and with a small $20.00 donation, was able to get the source code to 
additional portions of his program. I have tinkered with it, but came to understand 
that I needed more info on the CoCo. I have looked all over the net and found quite 
a lot of useful information, but what I really needed was the Unravelled Series. 

I was able to find someone that had Extended Basic Unravelled and Disk Basic 
Unravelled (He sent them to me for free). And a friend of mine had Super Extended 
Basic Unravelled (A copy I gave him years ago). Unfortunately, the books are not in 
the best of shape, and the type is hard to read, and with so many people looking 
for the books, I decided to re-do them in Electronic format. 

I ask everyone that obtains copies of this electronic document to PLEASE give 
freely. These books are for educational /informational use only. These books are no 
longer in publication and Spectral Associates no longer in business. Do not use 
these books for financial gain, as that would most certainly abuse the Copyright 
Laws that I have already bruised by re-producing them. 

Other than that, enjoy the books!! I 11 add more information to them as I get 
it. I plan on adding more Memory Map information, as well as hardware info in the 
coming months. But for now, take advantage of this fine resource. 

Walter K. Zydhek 
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INTRODUCTION 

Disk Basic Unravelled will provide the reader with a complete detailed and 
fully commented assembly listing of the Disk Operating System (DOS) of Radio 
Shack s COLOR BASIC. It is not within the scope of this book to teach the neophyte 
how to construct a DOS or to be able to completely understand the COLOR DOS. The 
reader will need to have a basic knowledge of 6809 assembly language programming to 
be able to take full advantage of the opportunities, which this book presents. It 
is also assumed that the reader is familiar with the contents of the Disk Basic 
Users manual, which contains a general description of the overall operation of Disk 
Basic and much useful information concerning the physical and logical format of the 
tracks & sectors. Disk Basic Unravelled will allow the reader to be able to 
completely understand the theory behind COLOR DOS to the point of being able to 
modify it for his own purposes or add extra commands or functions to the DOS. 

No attempt will be made to re explain the functions of BASIC and Extended 
Basic, which were explained in the previous two books of the BASIC Unravelled 
series. The reader should be aware of the fact that Color Disk Basic is not a 
stand-alone system. There are many direct calls into the Basic and Extended Basic 
ROMs. These calls are not explained in this book; the reader will have to refer to 
the Basic and Extended Basic Unravelled books in order to get a full explanation of 
these ROM calls. A complete memory map of the system operating variables is given 
at the beginning of the DOS assembly listing and a symbol table showing the 
location of all referenced routines and tables is at the end of the listing. 

All of the ROMs used in the Color Computer have undergone revisions since the 
inception of the machine. The disk ROMs have undergone the most severe change of 
the three ROMs. The first disk RON (Revision 1.0) used only 6K of the available 8K 
RON space and the second disk RON (Revision 1.1) used approximately 6.5K of ROM 
with the majority of the .5K increase going to correct bugs in the first ROM and to 
add the DOS command to Disk Basic. That leaves 1.5K of free ROM space in the latest 
version of Disk Basic, which is available to the user if he has a 64K machine. It 
is not recommended that this free ROM space be permanently allocated by any user 
since the Disk Basic ROMs in the Dragon computer (a British clone of the Color Com- 
puter) use the entire 8K ROM space and have added several new disk BASIC commands. 
This means that the commands are also probably available to Radio Shack and version 
1.2 of the BASIC ROM, which may contain some of these commands, will be coming 
along sometime. 

The new revisions of the Color Basic and Extended Basic ROMs kept the 
majority of the code in the same position in the ROM. In the case of the Disk Basic 
revisions, however, no effort was made to keep the code in the same position. There 
are two reasons for this: the first is that there were so many changes that it 
would have been very difficult to maintain the position and secondly, there was 2K 
of additional ROM space available so why try to maintain the position. The total 
positional difference between the two versions makes it very difficult to have one 
assembly listing which owners of either Disk Basic ROM may use. To solve this 
problem, an assembly listing of both versions is contained in the book. The 1.1 
version will be the most useful since it has had most of the bugs, which were in 
the 1.0 version corrected. The complete memory map will not be given for the 1.0 
version since the memory maps for both versions of the ROM are identical. 
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HOW TO USE THIS BOOK 

Disk BASIC Unravelled is a commented, disassembled listing of the TRS-80 
Color Computer Disk BASIC ROM. The author has never seen any kind of source listing 
for the Color Computer ROMs, so the comments and disassembly are 100% unique. Some 
of the variable label literals, which were used, have come from published memory 
maps of systems, which use a BASIC similar to that used in the Color Computer. 

The labels used in the disassembly correspond to absolute addresses in RAM 
preceded by an L . The labels correspond to the ad-dresses in Version 1.0 of the 
ROM, which may cause some confusion when trying to cross-index the 1.0 and 1.1 
versions. 

Literal labels have been assigned to RAM variables (memory locations that 
contain data which may change) and some ROM routines and data tables. The symbol 
table in Appendix D will allow the user to locate the address of the literal label. 
If the address is between and $989, the literal is a RAM variable, the 
description of which will be found in appendix A, the Memory Map. If the address is 
between $8000 and $9FFF, the label will be found in the Extended BASIC listing; if 
it is between $A000 and $BFFF, the label is in the Color BASIC listing and if it is 
between $C000 and $DFFF, the label is in the Disk BASIC listing. Some of the 
literal values such as SKP1, SECLEN, etc. are values not associated with an 
address. They are defined at the beginning of the Memory Map (appendix A) in the 
table of EQUATES (EQU). There is an additional group of EQUates at the beginning of 
the Disk Basic disassembly listing (Appendices B & C). 

The > symbol will occasionally appear to the left of the address of an 
instruction. This symbol is used to indicate that a JMP, JSR or LBxx instruction is 
being used when a BRA, BSR or Bxx instruction would suffice. These instructions may 
be replaced by their short versions in order to save a few bytes if necessary. 

There are several places in the original object code where an instruction of 
the form LDA 0,R (where R = X,Y,U,S) has been used. These have been replaced by 
instructions of the form LDA ,R which are more efficient in terms of processor time 
(one cycle shorter). 

The different versions of the ROMs provided in this book are kept in one 
large disk file with conditional assembly flags which allow the assembly of 
whichever version is desired by merely changing a single flag in the source 
listing. This is a convenient method of keeping track of the different versions of 
the ROMs but it can cause havoc with the line numbers at the extreme left of the 
disassembly listing. The line numbers keep track of EVERY line in the source 
listing regardless of whether or not that particular line is assembled. If when 
using the disassembly listings, you notice a gap in the line numbers it means that 
the missing line numbers correspond to a section of code, which was skipped during 
the assembly of that particular listing. This invariably means that there is a 
difference in the ROMs at that particular point. 
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DESCRIPTION OF DISK BASIC 

Disk Basic will allow the Color Computer to communicate with a floppy disk 
drive in order to rapidly store large amounts of data on a non volatile medium. 
Disk Basic is different from Extended Basic in the manner that Extended Basic 
provided the user with a package of graphics commands AND several useful non 
graphics commands, whereas Disk Basic provides ONLY disk oriented commands with no 
additional commands (there is approximately 1.5K of wasted space where something 
else could have been provided). Accordingly, any discussion of Disk Basic will 
center around only the TRS 80 Color Computer s DOS (Disk Operating System) 

As computers have evolved over the years, one of the biggest problems faced 
was the storage of the large amounts of data and programs, which the computer must 
have access to. The amount of random access storage available to the user was 
relatively small compared to the total amount of storage required. Random access 
memory is very fast, fairly expensive and volatile (it is lost when the power is 
turned off). The first method of mass storage used was magnetic tape, which was 
non volatile and cheap, but slow. Then came the floppy disk which was non volatile, 
not quite so cheap, and faster than magnetic tape. Presently the floppy disk is the 
primary system for mass storage in microcomputers. 

A floppy disk is a round piece of magnetic tape shaped like a record on which 
data is magnetically recorded. Somehow the data, which is stored on the disk, must 
be capable of being transferred to and from the computer s random access memory. 
This is a very complex task, which requires many things in order to be done 
properly. There must be a mechanical method of moving the disk and transferring the 
magnetic data to and from the disk. This job is performed by the disk drive. Also, 
there must be a method of formatting and transferring data to and from the 
computer s RAM and the disk drive. In the Color Computer the disk controller board 
does this. The majority of the work done by the disk controller is performed by the 
1793 Floppy Disk Controller (FDC) which is an integrated circuit as complicated as 
the 6809 chip. In order to make the process orderly and logical there must be an 
overall controlling format or procedure for sending data to and from the 1793 
(which will only provide primitive transference of blocks of data to and from the 
drive). The Disk Operating System (DOS) provides this overall control function by 
establishing a format for storing data and programs on the disk. The DOS provides a 
method of storing or retrieving blocks or single bytes of data to or from the disk 
drive. 

The 1793 is capable of storing data on a disk in many different formats. For 
the Color Computer the 1793 is set up to save data on the disk in 35 tracks. Each 
track is composed of 18 sectors and each sector contains 256 bytes. The DOS treats 
this raw data as 68 granules with each granule containing 9 sectors, 2 granules per 
track. The one remaining track is used for the directory and the file allocation 
table (FAT). 
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FILE CONTROL BLOCK STRUCTURE 

The File Control Block (FCB) is used by the DOS to control the transfer of 
data between the computer s RAM and the disk. It consists of 25 control bytes and a 
256-byte data buffer. The 25 control bytes may have different functions if the file 
is a random/direct, sequential input or sequential output file. The data buffer is 
used to collect data so that the disk I/O will only be required when there is a 
full sector (256 bytes) of data to be input or output to the disk. The use of this 
buffer speeds up the overall disk I/O by cutting down on the number of times that 
actual disk accesses are required. 

The number of FCBs allowed is set by the FILES command, which initializes the 
direct page variable FCBACT (the maximum number of FCBs allowed). The DOS always 
sets up a system FCB directly above the last allocated FCB, which is reserved for 
the exclusive use of the DOS and is not accessible to the user through BASIC. The 
system FCB is used when the system requires an FCB for disk I/O during the 
execution of such commands as MERGE, COPY, SAVE, LOAD, etc. This FCB may be 
accessed by the user under machine language but care must be exercised to insure 
that none of the BASIC commands which utilize the system FCB are used when doing 
so. 

The OPEN command is used to initialize the FCB for disk I/O. It keeps track 
of which byte, sector, track and granule is currently being accessed by the DOS for 
the file controlled by the FCB. When disk I/O has been completed, the FCB is 
deactivated with the CLOSE command. When an FCB is closed, it is available for use 
by another file and once the FCB is used by another file, all of the information 
used by the previous file is lost. Some of the information must be saved since the 
user may want to reopen the same file for use later 

on. Only six bytes from the FCB must be saved in order to be able to reinitialize 
an FCB. These six bytes are the file type (1), ASCII flag (1), first granule in 
file (2) and the number of bytes used in the last sector (2) and they are stored in 
the directory. A two-byte quantity is used to store number of bytes used in the 
last sector since the number of bytes may be any number from to 256 ($100). 

Listed below are those FCB control bytes, which are common to all types of 
files and their relative offset from the start of the FCB. 

OFFSET NAME DESCRIPTION 

FCBTYP Single byte code representing the file type under which 

the file was opened. It may not have any relationship to the 
actual type of data stored in the file; a sequential file may be 
opened as a random file and vice versa. The allowed codes are: 
$10 = Sequential input, $20 = Sequential output, $40 = random, 
= killed file. 

1 FCBDRV Single byte quantity defining the drive number where 

the file is located (0 3). 

2 FCBFGR Single byte quantity defining the first granule used 

by the file. 

3 FCBCGR Single byte quantity defining the current granule 

being accessed by the FCB. 
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4 FCBSEC Single byte quantity defining the current sector being accessed 

by the FCB (1 9). 

18 FCBDIR Single byte quantity defining the directory entry number for this 

file (0 71). 

19 FCBLST Double byte quantity containing the number of bytes used by this 

file in the last sector of the file. 

Listed below are the definitions of the non common FCB control bytes as used 
by random files. 

OFFSET NAME DESCRIPTION 

5 FCBCPT Unused 

6 FCBPOS Print position - always zero 

7 FCBREC Double byte quantity containing the current record number being 

used by the FCB. 

8 FCBRLN Double byte quantity containing the length of a record 

11 FCBBUF Double byte quantity containing a pointer to the absolute address 
of the start of random file buffer, which is exactly one record 
length long. 

13 FCBSOF Double byte quantity containing the sector offset to the current 
position in the record. These bytes are used to keep track of how 
many sectors from the beginning of a random file the current data 
being processed is located. These bytes are used to determine if 
the data in the FCB data buffer are valid for the current record 
number being processed. The high order byte is often set to $FF 
to cause new data to be read into the FCB data buffer. 

15 FCBFLG Single byte GET / PUT flag: 0=GET, 1=PUT. 

16 Two unused bytes 

21 FCBGET Double byte quantity containing the number of characters, which 

have been pulled out of the current record. These bytes are set 

to zero every time a record is stored in (PUT) or retrieved from 
(GET) a file. 

23 FCBPUT Double byte quantity containing the number of characters, which 

have been PUT into the current record. These bytes are set to 
zero every time a record is stored in (PUT) or retrieved from 
(GET) a file. 
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Listed below are the definitions of the non common FCB control bytes as used 
by sequential files. 

OFFSET NAME DESCRIPTION 

5 FCBCPT Single byte quantity pointing to the next character to be 

processed for input files. When this byte is incremented to zero 
it indicates that the data buffer needs to be refilled. For 
output files this byte is used to indicate that 256 bytes of the 
last sector in the file have been used in case a DISK FULL 
error occurs while searching for an unused granule6 FCBPOS 

Single byte quantity containing the current print position 
in the file for output files, unused for input files. A carriage 
return in the output data stream will reset this value to zero. 

7 FCBREC Double byte quantity containing the number of whole sectors which 

have been input or output to a file. 

9 15 Seven unused bytes. 

16 FCBCFL Single byte cache flag: 00=cache empty, $FF=cache full when 

inputting data, the DOS treats a CR, LF sequence as a CR. 
Therefore the DOS must look for a LF after a CR and if it does 
not find a LF, it must save that character for the next time an 
input character is needed. The cache flag indicates whether or 
not an extra character, which needs to be saved (cached), has 
been pulled out of an input file. 

17 FCBCDT Single byte cache data byte. If the cache flag is set 

the cache data byte is stored here. 

23 FCBDFL Single byte data left flag for input files: 00=data 

still left in file, $FF=no data left in file. 

24 FCBLFT Single byte quantity containing the number of characters left in 

the data buffer of an input file or the 

number of characters stored in the data buffer of an 

output file. 
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FILE ALLOCATION TABLE 

The file allocation table (FAT) is used to keep track of whether or not a 
granule has been allocated to a file or if it is free. The FAT is composed of six 
control bytes followed by 68 data bytes one byte for each granule. The FAT is 
stored on sector two of the directory track (17). A RAM image of the FAT is kept in 
the disk RAM for each of the four possible drives. Keeping an image of the FAT in 
RAM helps speed up the overall operation of the DOS by eliminating the need for 
disk I/O every time the DOS modifies the FAT. Saving the FAT to disk is done 
approximately every 19 times that a new granule is pulled from the free granule 
reserve. It is written to disk whenever a file is closed and there are some DOS 
operations, which force the FAT to be written to disk when that DOS operation 
allocates a free granule. 

Only the DOS uses two of the six control bytes. The first FAT control byte 
keeps track of how many FCBs are active on the drive for a particular FAT. This 
byte is used to preclude the loading in of the FAT from disk when there is any 
active file currently using the FAT. You can imagine the disaster, which would 
occur if you were creating a file and had allocated some granules to your new file 
but had not saved the new FAT to disk when the old FAT was loaded into RAM on top 
of the new FAT. Your new file would be hopelessly gone. For that reason the DOS 
must not allow the FAT to be loaded into RAM from disk while an FCB is active for 
that FAT. 

The second FAT control byte is used to govern the need to write data from the 
FAT RAM image to the disk. If the value of this byte is zero it means that the FAT 
RAM image is an exact copy of what is currently stored on the disk. If the value is 
non zero, it indicates that the data in the FAT RAM image has been changed since 
the last time that the FAT was written to disk. The number stored in this byte is 
an indicator of how many granules have been removed from the FAT since the last FAT 
to disk write. Some BASIC commands, such as KILL, cause an immediate FAT RAM image 
to disk write when granules are either freed or allocated. Other commands, which 
allocate granules, increment the second FAT control byte. This byte is then 
compared to the disk variable WFATVL and when the second control byte is >= WFATVL, 
the FAT is written to disk. 

The FAT data bytes are used to determine whether or not a granule is free and 
if it has been allocated they are used to determine to which file the granule 
belongs. If a data byte is $FF, it means that the granule is free and may be 
allocated to any file. If a granule has been allocated, it is part of a sector 
chain, which defines which granules belong to a certain file. The only information 
required to be able to trace the granule chain is the number of the first granule 
in the chain. If the first granule of the chain is not known, the chain cannot be 
traced down backwards. 

A granule data byte, which has been allocated, will contain a value, which is 
the number of the next granule in the granule chain for that file. If the two most 
significant bits (6,7) of a granule data byte are set, then that granule is the 
last granule in a file s granule chain. The low order four bits will contain the 
number of sectors in the last granule, which the file uses. Even though a file may 
not use all of the sectors in the last granule in the chain, no other file may use 
the sectors. Disk space is not allocated on a sector basis, it is allocated on a 
granule basis and the granule may not be broken down. The smallest one-byte file 
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will still require a full granule to be allocated in order to store the file. 

Granules are allocated in such a manner that will cause them to be relatively 
uniformly spread around the disk. This will lessen wear on the disk by not always 
allocating certain granules so that the disk drive head will not pass over certain 
sections of the disk too often. This is a common method used by a DOS in order to 
increase the life of a disk by spreading out the wear over as large a surface as 
possible, which could not be done if the granules were allocated on a strictly next 
in line numerical basis. 



10 
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THE DIRECTORY 

The directory is used by the DOS to keep track of how many files are stored 
on a disk. Track 17 is reserved for the directory and the file allocation table 
(FAT). The FAT resides on sector 2 and the directory occupies sectors 3-11. The 
remaining sectors are not used by the DOS in the current or past revisions to the 
BASIC ROMs. Each directory entry requires 32 bytes; so eight directory entries will 
fit in one sector for a total of 72 maximum directory entries. However, one full 
granule is required for each directory entry and there are only 68 granules on a 
disk so that only 68 directory entries (files) may exist on a disk at any time. 

The format of the 32-byte directory entry is as follows: 

Byte Description 

7 Filename, which is left justified and blank, filled. If byte0 is 0, 
then the file has been KILL ed and the directory entry is available 
for use. If byte0 is $FF, then the entry and all following entries 
have never been used. 

8 10 Filename extension 

11 File type: 0=BASIC, 1=BASIC data, 2=Machine language, 3= Text editor 
source 

12 ASCII flag: 0=binary or crunched BASIC, $FF=ASCI I 

13 Number of the first granule in the file 

14 15 Number of bytes used in the last sector of the file 
16 31 Unused (future use) 



DIRECTORY CRASHES 

There has been much talk in the Color Computer media about so called 
directory crashes . These directory crashes seem to occur at random and will 
result in an unreadable directory, which causes the loss of all data on the 
directory at the time. The typical solution for this problem seems to be keeping a 
spare copy of the directory on an unused portion of the disk so that if a crash 
occurs, the spare copy may be used to restore the directory. A couple of years ago, 
we were having the same problem and Rodger Rosenbaum, genius extraordinaire, solved 
the problem by finding the bug in the disk controller which was causing it. Given 
below is the hardware fix, which will cure the directory crash problem. Spectral 
Associates does not guarantee nor does it recommend this fix and Spectral 
Associates will not assume any responsibility or liability for damages caused 
should any person or entity use or attempt to use the fix. 
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NOTE: This fix is only valid for the old style disk controllers. The new 5- 
volt only controllers do not suffer from this problem and should not be modified. 

Add the wires shown with bold black lines. In order to install the fix 
without cutting traces on the PC board, gently lift IC s U9 and U13 out of their 
sockets, bend pins 6 and 4 respectively out and replace the IC s in their sockets. 
Then solder wires to the bent out pins. 
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1793 FLOPPY DISK CONTROLLER DESCRIPTION 

The 1793 Floppy Disk Controller (FDC) is the heart of the disk controller 
card, which interfaces the Color Computer to the disk drive. Only the basic 
knowledge of the FDC in order to understand the operation of Disk Basic is 
presented here. If further, detailed information concerning the operation of the 
FDC is required, the reader is referred to the 1793 data sheet published by the 
Western Digital Corp. Only those functions of the 1793, which may be accessed by 
software the Color Computer, will be discussed. 

The FDC is responsible for controlling the transference of data between the 
computer and the disk drive. There are many different disk drives manufactured by 
different companies and each drive has its own peculiarities, which require the FDC 
to be set up or used in a slightly different manner. The Color Computer Disk 
Controller board (which you plug into the cartridge slot) provides most of the 
support and set up functions, which the FDC requires and an eight-bit latch is used 
to store the FDC functions, which are software programmable, and those disk drive 
functions, which must be controlled directly by the computer. This control latch is 
located at $FF40 and is a write only latch, which means that data may only be 
written into the latch; no provision has been given to read the contents of the 
latch. For this reason, the DOS has reserved a byte in the Disk RAM (DRGRAM) which 
is an image of the contents of $FF40 so that the system software will know the 
status of the control latch at any time. Listed below are the functions, which may 
be controlled by DSKREG ($FF40). 



bit # Description 

Drive select 

1 Drive select 1 

2 Drive select 2 

3 Drive motor enable: 0=motors off, l=motors on 

4 Write pre-compensation flag: 0=no pre-comp, l=pre-comp 

5 Density flag: 0=single density, l=double density 

6 Drive select 3 

7 Halt flag: 0=halt disabled, l=halt enabled 

$FF40 Control Functions 

The drive select flags directly control which drive will communicate with the 
computer and the motor enable flag will enable or disable the motors of all of the 
drives. The density flag indicates to the FDC whether the data will be stored onto 
the diskette in single or double density. Write pre-compensation is used to correct 
the problem on a double density formatted disk of certain bit patterns causing a 
bit to shift from its nominal write position and appear at the read data separator 
early or late. Write pre-compensation rectifies this problem during disk writes by 
shifting such a bit from its nominal position in the opposite direction to its 
known read shift. Write precomp is usually necessary only for data written on the 
tracks on the inner half of the disk. The tracks on which write pre-compensation 
should be enabled vary from manufacturer and the number of the track at which write 
precomp is enabled in the Tandy disk is 22. Write precomp is on for tracks with a 
number greater than 22. The halt flag is used to enable the FDC board to halt the 
6809. This is used to enable the Color Computer to operate the disk drives in 
double density mode at the low (.89 MHz) clock speed at which the Color Computer 
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runs. When the halt flag is high, the DRQ (Data ReQuest) signal from the FDC will 
be connected to the halt input of the 6809. This will allow the DRQ signal to 
control the operation of the 6809 to the extent that the 6809 will not process any 
instructions while the FDC is processing data to or from the 6809. Writing a zero 
to bit 7 of will clear the halt flag $FF40 or it will be cleared whenever the FDC 
generates an INTRQ (Interrupt Request) signal, which indicates that the FDC has 
completed its current command. 

Data transfer between the computer and the disk drives through the FDC is 
accomplished through a series of hardware and software tricks . The slow clock 
speed of the Color Computer will not allow data to be transferred in the normal 
method of getting a byte from the computer, giving it to the FDC and then 
performing status checks until the FDC is not busy. There is just not enough time 
for this when operating at double density. Part of the Color Computer s solution is 
a hardware trick whereby the disk controller board will allow the FDC to halt the 
6809 while the FDC is storing or retrieving data. The halt flag will allow the DRQ 
signal from the FDC to halt the 6809 so that the 6809 will wait while the FDC is 
processing a data request. This trick will allow the 6809 to pass data to the FDC 
as fast as the FDC can take it by executing a fast loop of: grab a byte from RAM, 
give it to the FDC and loop back to get another byte. The analogous loop for 
getting data will also work. The only problem is how to get out of this loop. This 
problem is solved with software - when an FDC command such as WRITE SECTOR or READ 
SECTOR is completed an interrupt (INTRQ) is generated by the FDC. The Color 
Computer connects this INTFQ signal to the Non Maskable Interrupt (NMI) pin of the 
6809. This means that whenever an FDC command (except the $D0 FORCE INTERRUPT) is 
completed, an NMI will be generated. The computer will now be able to tell that an 
FDC command is over; all that is left is for the computer to know where to go when 
the command is finished. This is accomplished by storing a jump vector (DNMIVC) in 
the disk RAM prior to entering the FDC data transfer loop. Another byte in disk RAM 
is used as a flag (NMIFLG) to indicate that the NMI jump vector should be used. If 
the NMIFLG is not equal to zero and an NMI is received by the 6809, Disk Basic will 
cause the NMIFLG to be reset and control will be transferred to the address in 
DNMIVC. It is exactly this method, which is used to exit from the FDC data transfer 
routines. 

The FDC has four registers, which are used to communicate with the computer. 
Their functions are described below: 

ADDRESS READ WRITE 

$FF48 STATUS REGISTER COMMAND REGISTER 

$FF49 TRACK REGISTER TRACK REGISTER 

$FF4A SECTOR REGISTER SECTOR REGISTER 

$FF4B DATA REGISTER DATA REGISTER 

The track and sector registers are used by the FDC to remember where the disk 
drive s head is currently located. The data register is used to pass data to and 
from the FDC. The command register is used to pass one of the eleven possible 
commands to the FDC. Each of these commands has several different forms, which are 
explained in the FDC data sheet. The form used by Disk Basic are listed below: 

TYPE COMMAND CODE 

I RESTORE $03 

I SEEK $17 
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I 


STEP 


I 


STEP IN 


I 


STEP OUT 


II 


READ SECTOR 


II 


WRITE SECTOR 


III 


READ ADDRESS 


III 


READ TRACK 


III 


WRITE TRACK 


IV 


FORCE INTERRUPT 



$23 
$43 
$53 
$80 
$A0 
$C0 
$E4 
$F4 
$D0 



The status register is used to reflect the results of an FDC command. The 
contents of the status register will vary depending upon the TYPE of FDC command, 
which was executed. Listed below are the contents of the status register for the 
various TYPEs. 

STATUS REGISTER SUMMARY 





ALL TYPE I 


READ 


READ 


READ 


WRITE 


WRITE 


BIT 


COMMANDS 


ADDRESS 


SECTOR 


TRACK 


SECTOR 


TRACK 


S7 


NOT READY 


NOT READY 


NOT READY 


NOT READY 


NOT READY 


NOT READY 


S6 


WRITE 
PROTECT 











WRITE 
PROTECT 


WRITE 
PROTECT 


S5 


HEAD 





RECORD 





WRITE 


WRITE 




LOADED 




TYPE 




FAULT 


FAULT 


S4 


SEEK ERROR 


RNF 


RNF 





RNF 





S3 


CRC ERROR 


CRC ERROR 


CRC ERROR 





CRC ERROR 





S2 


TRACK 


LOST DATA 


LOST DATA 


LOST DATA 


LOST DATA 


LOST DATA 


SI 


INDEX 


DRO 


DRO 


DRO 


DRO 


DRO 


SI 


BUSY 


BUSY 


BUSY 


BUSY 


BUSY 


BUSY 





STATUS FOR TYPE I COMMANDS 


BIT NAME 


MEANING 


S7 NOT READY 


This bit when set indicates the drive is not ready. 
When reset it indicates that the drive is ready. This 
bit is an inverted copy of the Ready input and 
logically or d with MR. 


S6 PROTECTED 


When set, indicates Write Protect is activated. This 
bit is an inverted copy at WRPT input. 


S5 HEAD LOADED 


When set, it indicates the head is loaded and engaged. 
This bit is a logical and of HLD and HLT signals. 


S4 SEEK ERROR 


When set, the desired track was not verified. This bit 
is reset to when updated. 


S3 CRC ERROR 


CRC encountered in ID field. 


S2 TRACK 00 


When set, indicates Read/Write head is positioned to 
Track 0. This bit is an inverted copy of the TR00 
input. 


SI INDEX 


When set, indicates index mark detected from drive. 
This bit is an inverted copy of the IP input. 


S0 BUSY 


When set, command is in progress. When reset, no 
command is in progress. 
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STATUS FOR TYPE II AND III COMMANDS 


BIT NAME 


MEANING 


S7 NOT READY 


This bit when set indicates the drive is not ready. 




When reset, it indicates that the drive is ready. This 




bit is an inverted copy of the Ready input and or d 




with MR. The Type II and 111 Commands will not execute 




unless the drive is ready. 


S6 WRITE 


On Read Record, Not Used. On Read Track, Not Used. On 


PROTECT 


any Write: It indicates a Write Protect. This bit is 




reset when updated. 


S5 RECORD 


On Read Record. It indicates the record type code from 


TYPE/WRITE 


data field address mark. 1 = Deleted Data Mark. = 


FAULT 


Data Mark. On any Write: It indicates a Write Fault. 




This bit is reset when updated. 


S4 RECORD NOT 


When set, it indicates that the desired track, sector, 


FOUND (RNF) 


or side was not found. This bit is reset when updated. 


S3 CRC ERROR 


If S4 is set, an error is found in one or more ID 




fields: otherwise it indicates error in data field. 




This bit is reset when updated. 


S2 LOST DATA 


When set, it indicates the computer did not respond to 




DRQ in one byte time. This bit is reset to zero when 




updated. 


SI DATA 


This bit is a copy of the DRQ output. When set, it 


REQUEST 


indicates the DR is full on a Read Operation or the DR 




is empty on a Write operation. This bit Is reset to 




zero when updated. 


S0 BUSY 


When set, command is under execution. When reset, no 




command Is under execution. 



The disk variable DCSTA is not a true reflection of the contents of the FDC 
status register. Disk Basic filters the status bits of the FDC status register and 
allow only those errors, which Disk Basic requires to pass through. 
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MACHINE LANGUAGE FILE INPUT/OUTPUT 

The DOS uses a special format for transferring binary files to and from the 
disk. The format is fairly simple and straightforward and allows the loading of 
non contiguous blocks of memory from the same file. The only problem is that Radio 
Shack has not provided a SAVEM function, which will allow the saving of non 
contiguous blocks of memory into one disk file. This minor problem can be gotten 
around with the help of a neat utility called JOIN which is included in the Spec- 
tral Associates Color Computer Editor Assembler, ULTRA 80CC. This utility will 
allow the concatenation of as many machine language files as the user requires into 
one large file. LOADM will then load all of the segments into memory and the 
segments may overlay one another. 

Binary data is stored on the disk as one large block proceeded by a five-byte 
preamble. The data block is followed by five more bytes which are another preamble 
if there is another block of data following or the five bytes are a post-amble if 
there are no further data blocks. The format for the preamble and the post-amble 
are given below: 

BYTE PREAMBLE POSTAMBLE 

00 Preamble flag $FF Post-amble flag 

1,2 Length of data block Two zero bytes 

3,4 Load address EXEC address 
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DISK BASIC RAM VARIABLES /BUFFERS 

Disk Basic requires a substantial amount of RAM for variables and buffer 
space. There is not enough room in the direct page for all of the variables so Disk 
Basic grabs a chunk of RAM immediately above the video display RAM (starting at 
$600) for its own use. It also uses nine bytes in the direct page, which leaves a 
total of 17 unused direct page variables for the user when Disk Basic is installed. 

At the beginning of Disk RAM are two sector length (256 bytes) I/O buffers, 
which are primarily used to buffer data transfers to and from the disk controller. 
DBUF0 is the main I/O buffer and is involved in virtually all disk data transfers. 
The secondary I/O buffer, DBUF1 is used as a buffer during verify operations and is 
used as a scratchpad work area or a temporary home for the stack during certain 
other disk commands such as DSKI $ , DSK0$ and DSKINI. Following these two buffers 
are four buffers for the File Allocation Tables and control blocks for the four 
drives. After these buffers are the variables, which Disk Basic uses for its own 
internal purposes, and a description of the function of these variables may be 
found in the direct page memory map found at the beginning of the disassembled list 
of Disk Basic. 

Disk Basic also allocates two additional blocks of RAM for random file buffer 
and file control block storage. The area for these storage areas is directly after 
the disk variable RAM and just before the graphic page reserved area. The random 
file buffer area is used to save a one record length buffer for each active random 
file. The random file buffer size may be changed with the FILES command. Each time 
a random file is OPENed or CLOSEd one record length of memory is allocated or 
deallocated from the available buffer space in the random file buffer area. If 
there is not enough space in the random file buffer area to hold one record length, 
an OB (out of buffer space) error will be generated. Immediately after the random 
file buffer area is the area reserved for file control blocks. The number of 
available FCBs may be changed by the FILES command. Each FCB requires 281 bytes of 
RAM and there is always one more FCB (the system FCB) reserved than the number of 
FCBs requested by the FILES command. 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 



0015 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 



C000 


ROMPAK 


EQU 


$C000 


0008 


BS 


EQU 


8 


000D 


CR 


EQU 


$D 


001B 


ESC 


EQU 


$1B 


000A 


LF 


EQU 


$A 


000C 


FORMF 


EQU 


$C 


0020 


SPACE 


EQU 


$20 


003A 


STKBUF 


EQU 


58 


045E 


DEBDEL 


EQU 


$45E 


00FA 


LBUFMX 


EQU 


250 


00FA 


MAXLIN 


EQU 


$FA 


2600 


DOSBUF 


EQU 


$2600 


0006 


FATCON 


EQU 


6 


0019 


FCBCON 


EQU 


25 


0020 


DIRLEN 


EQU 


32 


0100 


SECLEN 


EQU 


256 


0012 


SECMAX 


EQU 


18 


1200 


TRKLEN 


EQU 


SECMAX*SECLEN 


0023 


TRKMAX 


EQU 


35 


004A 


FATLEN 


EQU 


6+(TRKMAX-l)*2 


0044 


GRANMX 


EQU 


(TRKMAX-1)*2 


0119 


FCBLEN 


EQU 


SECLEN+25 


0010 


INPFIL 


EQU 


$10 


0020 


OUTFIL 


EQU 


$20 


0040 


RANFIL 


EQU 


$40 




* SUPER EXTENDED BASIC EQUATES 


0018 


ROWMAX 


EQU 


24 


0000 


RAMLINK 


EQU 





2000 


HRESSCRN 


EQU 


$2000 


C000 


HRESBUFF 


EQU 


$C000 


DFFF 


TMPSTACK 


EQU 


$DFFF 


0062 


EBHITOK 


EQU 


$62 


0029 


EBHISTOK 


EQU 


$29 


0020 


CURCHAR 


EQU 


SPACE 




* HBUFF HGET/HPUT BUFFER HEADE! 


0000 


HB.ADDR 


EQU 





0002 


HB.NUM 


EQU 


2 


0003 


HB.SIZE 


EQU 


3 


0005 


HB.LEN 


EQU 


5 



BACKSPACE 
ENTER KEY 
ESCAPE CODE 
LINE FEED 
FORM FEED 
SPACE (BLANK) 

STACK BUFFER ROOM 

DEBOUNCE DELAY 

MAX NUMBER OF CHARS IN A BASIC LINE 

MAXIMUM MS BYTE OF LINE NUMBER 

RAM LOAD LOCATION FOR THE DOS COMMAND 

NUMBER OF CONTROL BYTES BEFORE FAT 

NUMBER OF CONTROL BYTES BEFORE FCB 

NUMBER OF BYTES IN DIRECTORY ENTRY 

LENGTH OF SECTOR IN BYTES 

MAXIMUM NUMBER OF SECTORS PER TRACK 

LENGTH OF TRACK IN BYTES 

MAX NUMBER OF TRACKS 

FILE ALLOCATION TABLE LENGTH 

MAXIMUM NUMBER OF GRANULES 

FILE CONTROL BLOCK LENGTH 

INPUT FILE TYPE 

OUTPUT FILE TYPE 

RANDOM/DIRECT FILE TYPE 



MAXIMUM NUMBER OF ROWS IN HI-RES PRINT MODE 

DUMMY RAM LINK VECTOR 

ADDRESS OF THE HI-RES SCREEN IN THE CPU'S MEMORY SPACE 

ADDRESS OF THE GET/PUT BUFFERS IN THE CPU'S MEMORY SPACE 

ADDRESS OF THE HI -RES GRAPHICS STACK IN THE CPU'S MEMORY SPACE 

FIRST ENHANCED BASIC TOKEN NUMBER 

FIRST ENHANCED BASIC FUNCTION TOKEN NUMBER BUG - SHOULD BE $28 

HI-RES CURSOR CHARACTER 



ADDRESS OF THE NEXT BUFFER - 2 BYTES 
NUMBER OF THIS BUFFER - 1 BYTES 
NUMBER OF BYTES IN THE BUFFER - 2 BYTES 
NUMBER OF BYTES IN THIS HEADER 





* VIDEO 


REGISTER EQUATES 




* INIT0 


BIT EQUATES 


0080 


COCO 






EQU 


$80 


0040 


MMUEN 






EQU 


$40 


0020 


IEN 






EQU 


$20 


0010 


FEN 






EQU 


$10 


0008 


MC3 






EQU 


8 


0004 


MC2 






EQU 


4 


0002 


MCI 






EQU 


2 


0001 


MC0 






EQU 


1 




* INTERRUPT REQUEST ENAB 


0020 


TMR 






EQU 


$20 


0010 


HBORD 






EQU 


$10 


0008 


VBORD 






EQU 


8 


0004 


EI2 






EQU 


4 


0002 


Ell 






EQU 


2 


0001 


EI0 






EQU 


1 




* EXPANDEE 


1 MEMORY DEFINI 


0030 


BLOCK 


6 


,0 


EQU 


$30 


0031 


BLOCK 


6 


,1 


EQU 


$31 


0032 


BLOCK 


6. 


,2 


EQU 


$32 


0033 


BLOCK 


6. 


,3 


EQU 


$33 


0034 


BLOCK 


6. 


,4 


EQU 


$34 


0035 


BLOCK 


6 


,5 


EQU 


$35 


0036 


BLOCK 


6. 


,6 


EQU 


$36 


0037 


BLOCK 


6 


,7 


EQU 


$37 



1 = Color Computer compatible 
1 = MMU enabled 

1 = GIME chip IRQ output enabled 
1 = GIME chip FIRQ output enabled 
1 = RAM at XFEXX is constant 
1 = standard SCS 
ROM map control 
ROM map control 



TIMER 

HORIZONTAL BORDER 

VERTICAL BORDER 

SERIAL DATA 

KEYBOARD 

CARTRIDGE 



BLOCKS $30-$33 ARE THE HI-RES GRAPHICS SCREEN 

HI-RES GRAPHICS SCREEN 

HI-RES GRAPHICS SCREEN 

HI-RES GRAPHICS SCREEN 

GET/PUT BUFFER 

STACK AREA FOR HI-RES GRAPHICS COMMAND 

CHARACTER POINTERS 

UNUSED BY BASIC 
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0081 




0082 




0083 




0084 




0085 




0086 




0087 




0088 




0089 




0028 




0029 




0030 




0031 




0032 




0033 




0090 




0091 




0092 


0000 


0093 




0094 




0095 


0000 


0095 


0001 


0097 


0002 


0098 


0003 


0099 


0004 


0100 


0005 


0101 


0006 


0102 


0007 


0103 


0008 


0104 


0009 


0105 


000A 


0106 


000B 


0107 


000D 


0108 


000F 


0109 


0011 


0110 




0111 


0013 


0112 


0017 


0113 


0019 


0114 


001B 


0115 


001D 


0116 


001F 


0117 


0021 


0118 


0023 


0119 


0025 


0120 


0027 


0121 


0029 


0122 


002B 


0123 


002D 


0124 


002F 


0125 


0031 


0126 


0033 


0127 


0035 


0128 


0037 


0129 


0039 


0130 


003B 


0131 


003D 


0132 


003F 


0133 




0134 




0135 




0136 




0137 


0040 


0138 


0041 


0139 


0042 


0140 


0043 


0141 


0044 


0142 




0143 


0045 


0144 


0046 


0145 


0047 


0146 


0048 


0147 





BLOCKS $48-$4F ARE USED FOR THE BASIC OPERATING SYSTEM 



0038 


BLOCK7.0 


EQU 


$38 


0039 


BL0CK7.1 


EQU 


$39 


003A 


BL0CK7.2 


EQU 


$3A 


003B 


BL0CK7.3 


EQU 


$3B 


003C 


BL0CK7.4 


EQU 


$3C 


003D 


BL0CK7.5 


EQU 


$3D 


003E 


BL0CK7.6 


EQU 


$3E 


003F 


BL0CK7.7 


EQU 


$3F 




* PSEUDO 


PSEUDO 


OPS 


0021 


SKP1 


EQU 


$21 


008C 


SKP2 


EQU 


$8C 


0086 


SKP1LD 


EQU 


$86 



0000 





ORG 







SETDP 


ENDFLG 


RMB 


1 


CHARAC 


RMB 


1 


ENDCUR 


RMB 


1 


TMPLOC 


RMB 


1 


IFCTR 


RMB 


1 


DIMFLG 


RMB 


1 


VALTYP 


RMB 


1 


GARBFL 


RMB 


1 


ARYDIS 


RMB 


1 


INPFLG 


RMB 


1 


RELFLG 


RMB 


1 


TEMPPT 


RMB 


2 


LASTPT 


RMB 


2 


TEMPTR 


RMB 


2 


TMPTR1 


RMB 


2 


** FLOATING POINT 


FPA2 


RMB 


4 


BOTSTK 


RMB 


2 


TXTTAB 


RMB 


2 


VARTAB 


RMB 


2 


ARYTAB 


RMB 


2 


ARYEND 


RMB 


2 


FRETOP 


RMB 


2 


STRTAB 


RMB 


2 


FRESPC 


RMB 


2 


MEMSIZ 


RMB 


2 


OLDTXT 


RMB 


2 


BINVAL 


RMB 


2 


OLDPTR 


RMB 


2 


TINPTR 


RMB 


2 


DATTXT 


RMB 


2 


DATPTR 


RMB 


2 


DATTMP 


RMB 


2 


VARNAM 


RMB 


2 


VARPTR 


RMB 


2 


VARDES 


RMB 


2 


RELPTR 


RMB 


2 


TRELFL 


RMB 


1 



OP CODE OF BRN SKIP ONE BYTE 

OP CODE OF CMPX # - SKIP TWO BYTES 

OP CODE OF LDA # - SKIP THE NEXT BYTE 

AND LOAD THE VALUE OF THAT BYTE INTO ACCA THIS 

IS USUALLY USED TO LOAD ACCA WITH A NON ZERO VALUE 



STOP/END FLAG: POSITIVE=STOP, NEG=END 
TERMINATOR FLAG 1 
TERMINATOR FLAG 2 
SCRATCH VARIABLE 

IF COUNTER - HOW MANY IF STATEMENTS IN A LINE 
*DV* ARRAY FLAG 0=EVALUATE, 1=DI MENSI ON I NG 
*DV* *PV TYPE FLAG: 0=NUMERIC, $FF=STRING 
*TV STRING SPACE HOUSEKEEPING FLAG 
DISABLE ARRAY SEARCH: 00=ALLOW SEARCH 
*TV INPUT FLAG: READ=0, INPUTO0 
*TV RELATIONAL OPERATOR FLAG 
*PV TEMPORARY STRING STACK POINTER 
*PV ADDR OF LAST USED STRING STACK ADDRESS 
TEMPORARY POINTER 

TEMPORARY DESCRIPTOR STORAGE (STACK SEARCH) 
ACCUMULATOR #2 (MANTISSA ONLY) 

FLOATING POINT ACCUMULATOR #2 MANTISSA 

BOTTOM OF STACK AT LAST CHECK 

*PV BEGINNING OF BASIC PROGRAM 

*PV START OF VARIABLES 

*PV START OF ARRAYS 

*PV END OF ARRAYS (+1) 

*PV START OF STRING STORAGE (TOP OF FREE RAM) 

*PV START OF STRING VARIABLES 

UTILITY STRING POINTER 

*PV TOP OF STRING SPACE 

SAVED LINE NUMBER DURING A "STOP" 

BINARY VALUE OF A CONVERTED LINE NUMBER 

SAVED INPUT PTR DURING A "STOP" 

TEMPORARY INPUT POINTER STORAGE 

*PV 'DATA' STATEMENT LINE NUMBER POINTER 

*PV 'DATA' STATEMENT ADDRESS POINTER 

DATA POINTER FOR 'INPUT' & 'READ' 

*TV TEMP STORAGE FOR A VARIABLE NAME 

*TV POINTER TO A VARIABLE DESCRIPTOR 

TEMP POINTER TO A VARIABLE DESCRIPTOR 

POINTER TO RELATIONAL OPERATOR PROCESSING ROUTINE 

TEMPORARY RELATIONAL OPERATOR FLAG BYTE 



* FLOATING POINT ACCUMULATORS #3,4 & 5 ARE MOSTLY 

* USED AS SCRATCH PAD VARIABLES. 

** FLOATING POINT ACCUMULATOR #3 :PACKED: ($40-$44) 

V40 

V41 

V42 

V43 

V44 

** FLOATING POINT ACCUMULATOR #4 :PACKED: ($45-$49) 

V45 RMB 1 

V46 RMB 1 

V47 RMB 1 

V48 RMB 2 

** FLOATING POINT ACCUMULATOR #5 : PACKED: ($4A $4E) 



RMB 


1 


RMB 


1 


RMB 


1 


RMB 


1 


RMB 


1 
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0148 


004A 




0149 


004B 




0150 


004D 




0151 






0152 


004F 




0153 


0050 




0154 


0054 




0155 


0055 




0155 


0055 




0157 


005B 




0158 






0159 


005C 




0150 


005D 




0151 


0051 




0152 






0153 


0052 




0154 


0053 




0155 


0054 




0155 


0055 




0157 


0058 




0158 


005A 




0159 


005B 




0170 


005C 




0171 


005D 




0172 


005E 




0173 


005F 




0174 






0175 


0070 




0175 


0071 




0177 


0072 




0178 


0074 




0179 


0075 




0180 


0078 




0181 


0079 




0182 


007A 




0183 


007C 




0184 


007D 




0185 


007E 




0185 


0080 




0187 


0081 




0188 


0082 




0189 


0083 




0190 


0084 




0191 


0085 




0192 


0085 




0193 


0087 




0194 


0088 




0195 


008A 




0195 


008C 




0197 


008D 




0198 






0199 






0200 






0201 






0202 


008F 




0203 


0090 




0204 


0091 




0205 


0092 




0205 


0094 




0207 


0095 




0208 


0097 




0209 


0099 




0210 


009A 




0211 


009B 




0212 


009C 




0213 


009D 




0214 






0215 






0215 






0217 






0218 






0219 


009F 0C 


A7 


0220 


00A1 25 


02 


0221 


00A3 0C 


A6 



V4A 


RMB 


1 


V4B 


RMB 


2 


V4D 


RMB 


2 


** FLOATING POINT 


FP0EXP 


RMB 


1 


FPA0 


RMB 


4 


FP0SGN 


RMB 


1 


COEFCT 


RMB 


1 


STRDES 


RMB 


5 


FPCARY 


RMB 


1 


** FLOATING POINT 


FP1EXP 


RMB 


1 


FPA1 


RMB 


4 


FP1SGN 


RMB 


1 


RESSGN 


RMB 


1 


FPSBYT 


RMB 


1 


COEFPT 


RMB 


2 


LSTTXT 


RMB 


2 


CURLIN 


RMB 


2 


DEVCFW 


RMB 


1 


DEVLCF 


RMB 


1 


DEVPOS 


RMB 


1 


DEVWID 


RMB 


1 


PRTDEV 


RMB 


1 


DEVNUM 


RMB 


1 


CINBFL 


RMB 


1 


RSTFLG 


RMB 


1 


RSTVEC 


RMB 


2 


TO PRAM 


RMB 


2 




RMB 


2 


FILSTA 


RMB 


1 


CINCTR 


RMB 


1 


CINPTR 


RMB 


2 


BLKTYP 


RMB 


1 


BLKLEN 


RMB 


1 


CBUFAD 


RMB 


2 


CCKSUM 


RMB 


1 


CSRERR 


RMB 


1 


CPULWD 


RMB 


1 


CPERTM 


RMB 


1 


CBTPHA 


RMB 


1 


CLSTSN 


RMB 


1 


GRBLOK 


RMB 


1 


IKEYIM 


RMB 


1 


CURPOS 


RMB 


2 


ZERO 


RMB 


2 


SNDTON 


RMB 


1 


SNDDUR 


RMB 


2 



ACCUMULATOR #0 



*PV FLOATING POINT ACCUMULATOR #0 
*PV FLOATING POINT ACCUMULATOR #0 
*PV FLOATING POINT ACCUMULATOR #0 
POLYNOMIAL COEFFICIENT COUNTER 
TEMPORARY STRING DESCRIPTOR 
FLOATING POINT CARRY BYTE 



ACCUMULATOR #1 



CMPMID 


RMB 


1 


CMP0 


RMB 


1 


CMP1 


RMB 


1 


SYNCLN 


RMB 


2 


BLKCNT 


RMB 


1 


LPTBTD 


RMB 


2 


LPTLND 


RMB 


2 


LPTCFW 


RMB 


1 


LPTLCF 


RMB 


1 


LPTWID 


RMB 


1 


LPTPOS 


RMB 


1 


EXECJP 


RMB 


2 



*PV FLOATING POINT ACCUMULATOR #1 
*PV FLOATING POINT ACCUMULATOR #1 
*PV FLOATING POINT ACCUMULATOR #1 



EXPONENT 
MANTISSA 
SIGN 



EXPONENT 
MANTISSA 
SIGN 



SIGN OF RESULT OF FLOATING POINT OPERATION 

FLOATING POINT SUB BYTE (FIFTH BYTE) 

POLYNOMIAL COEFFICIENT POINTER 

CURRENT LINE POINTER DURING LIST 

*PV CURRENT LINE # OF BASIC PROGRAM, $FFFF = DIRECT 

*TV TAB FIELD WIDTH 

*TV TAB ZONE 

*TV PRINT POSITION 

*TV PRINT WIDTH 

*TV PRINT DEVICE: 0=NOT CASSETTE, -1=CASSETTE 

*PV DEVICE NUMBER: -3=DL0AD, -2=PRINTER, 

-1=CASSETTE, 0=SCREEN, 1-15=DISK 
*PV CONSOLE IN BUFFER FLAG: 00=NOT EMPTY, $FF=EMPTY 
*PV WARM START FLAG: $55=WARM, OTHER=COLD 
*PV WARM START VECTOR - JUMP ADDRESS FOR WARM START 
*PV TOP OF RAM 
SPARE: UNUSED VARIABLES 

*PV FILE STATUS FLAG: 0=CLOSED, 1=INPUT, 2=OUTPUT 
*PV CONSOLE IN BUFFER CHAR COUNTER 
*PV CONSOLE IN BUFFER POINTER 

*TV CASS BLOCK TYPE: 0=HEADER, 1=DATA, $FF=EOF 
*TV CASSETTE BYTE COUNT 
*TV CASSETTE LOAD BUFFER POINTER 
*TV CASSETTE CHECKSUM BYTE 
*TV ERROR FLAG/CHARACTER COUNT 
*TV PULSE WIDTH COUNT 
*TV BIT COUNTER 
*TV BIT PHASE FLAG 
*TV LAST SINE TABLE ENTRY 

*TV GRAPHIC BLOCK VALUE FOR SET, RESET AND POINT 
*TV INKEY$ RAM IMAGE 
*PV CURSOR LOCATION 

*PV DUMMY - THESE TWO BYTES ARE ALWAYS ZERO 
*TV TONE VALUE FOR SOUND COMMAND 
*TV DURATION VALUE FOR SOUND COMMAND 



THESE BYTES ARE MOVED DOWN 



FROM ROM 
INIT 
VALUE 
18 
24 
10 
128 
11 
88 
1 

16 
112 
132 

LB4AA 



DESCRIPTION 

*PV 1200/2400 HERTZ PARTITION 

*PV UPPER LIMIT OF 1200 HERTZ PERIOD 

*PV UPPER LIMIT OF 2400 HERTZ PERIOD 

*PV NUMBER OF $55 'S TO CASSETTE LEADER 

*PV CURSOR BLINK DELAY 

*PV BAUD RATE CONSTANT (600) 

*PV PRINTER CARRIAGE RETURN DELAY 

*PV TAB FIELD WIDTH 

*PV LAST TAB ZONE 

*PV PRINTER WIDTH 

*PV LINE PRINTER POSITION 

*PV JUMP ADDRESS FOR EXEC COMMAND 



** THIS ROUTINE PICKS UP THE NEXT INPUT CHARACTER FROM 
** BASIC. THE ADDRESS OF THE NEXT BASIC BYTE TO BE 
** INTERPRETED IS STORED AT CHARAD. 



GETNCH INC <CHARAD+1 
BNE GETCCH 
INC <CHARAD 



*PV INCREMENT LS BYTE OF INPUT POINTER 

*PV BRANCH IF NOT ZERO (NO CARRY) 

*PV INCREMENT MS BYTE OF INPUT POINTER 
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0222 


00A5 B6 


0223 


00A6 


0224 




0225 




0226 


00A8 7E 


0227 




0228 


00AB 


0229 


00AC 


0230 


00AD 


0231 


00AE 


0232 




0233 




0234 


00AF 


0235 


00B0 


0235 


00B2 


0237 


00B3 


0238 


00B4 


0239 


00B5 


0240 


00B6 


0241 


00B7 


0242 


00B9 


0243 


00BA 


0244 


00BC 


0245 


00BD 


0246 


00BF 


0247 


00C1 


0248 


00C2 


0249 


00C3 


0250 


00C5 


0251 


00C7 


0252 


00C9 


0253 




0254 




0255 


00CB 


0256 


00CD 


0257 


00CF 


0258 


00D1 


0259 


00D3 


0260 


00D4 


0261 


00D5 


0262 


00D6 


0263 


00D7 


0264 


00D8 


0265 


00D9 


0266 


00DA 


0267 




0268 


00DB 


0269 


00DC 


0270 


00DE 


0271 


00DF 


0272 


00E0 


0273 


00E1 


0274 


00E2 


0275 


00E3 


0276 


00E5 


0277 


00E6 


0278 


00E6 


0279 


00E7 


0280 


00E7 


0281 


00E8 


0282 


00E9 


0283 




0284 




0285 


00EA 


0286 


00EB 


0287 


00EC 


0288 


00ED 


0289 


00EE 


0290 


00F0 


0291 




0292 


00F1 


0293 




0294 


00F3 


0295 





GETCCH 


FCB 


$B6 


CHARAD 




2 


* 


JMP 


BROMHK 


VAB 


RMB 


1 


VAC 


RMB 


1 


VAD 


RMB 


1 


VAE 


RMB 


1 


* EXTENDED BASIC VARIAE 


TRCFLG 


RMB 


1 


USRADR 


RMB 


2 


FORCOL 


RMB 


1 


BAKCOL 


RMB 


1 


WCOLOR 


RMB 


1 


ALLCOL 


RMB 


1 


PMODE 


RMB 


1 


ENDGRP 


RMB 


2 


HORBYT 


RMB 


1 


BEGGRP 


RMB 


2 


GRPRAM 


RMB 


1 


HORBEG 


RMB 


2 


VERBEG 


RMB 


2 


CSSYAL 


RMB 


1 


SETFLG 


RMB 


1 


HOREND 


RMB 


2 


VEREND 


RMB 


2 


HORDEF 


RMB 


2 


VERDEF 


RMB 


2 


* EXTENDED BASIC SCRATI 


VCB 


RMB 


2 


VCD 


RMB 


2 


VCF 


RMB 


2 


VD1 


RMB 


2 


VD3 


RMB 


1 


VD4 


RMB 


1 


VD5 


RMB 


1 


VD6 


RMB 


1 


VD7 


RMB 


1 


VD8 


RMB 


1 


VD9 


RMB 


1 


VDA 


RMB 


1 


CHGFLG 


RMB 


1 


TMPSTK 


RMB 


2 


OCTAVE 


RMB 


1 


VOLHI 


RMB 


1 


VOLLOW 


RMB 


1 


NOTELN 


RMB 


1 


TEMPO 


RMB 


1 


PLYTMR 


RMB 


2 


DOTYAL 


RMB 


1 


HRMODE 


EQU 


* 


DLBAUD 


RMB 


1 


HRWIDTH 


EQU 


* 


TIMOUT 


RMB 


1 


ANGLE 


RMB 


1 


SCALE 


RMB 


1 


* DSKCON 


VARIABLES 


DCOPC 


RMB 


1 


DCDRV 


RMB 


1 


DCTRK 


RMB 


1 


DSEC 


RMB 


1 


DCBPT 


RMB 


2 


DCSTA 


RMB 


1 


FCBTMP 


RMB 


2 




RMB 


13 



*PV OP CODE OF LDA EXTENDED 

*PV THESE 2 BYTES CONTAIN ADDRESS OF THE CURRENT 

CHARACTER WHICH THE BASIC INTERPRETER IS 

PROCESSING 
JUMP BACK INTO THE BASIC RUM 

= LOW ORDER FOUR BYTES OF THE PRODUCT 
= OF A FLOATING POINT MULTIPLICATION 
= THESE BYTES ARE USE AS RANDOM DATA 
= BY THE RND STATEMENT 



*PV TRACE FLAG 0=OFF ELSE=ON 

*PV ADDRESS OF THE START OF USR VECTORS 

*PV FOREGROUND COLOR 

*PV BACKGROUND COLOR 

*TV WORKING COLOR BEING USED BY EX BASIC 

*TV ALL PIXELS IN THIS BYTE SET TO COLOR OF VB3 

*PV PMODE'S MODE ARGUMENT 

*PV END OF CURRENT GRAPHIC PAGE 

*PV NUMBER OF BYTES/HORIZONTAL GRAPHIC LINE 

*PV START OF CURRENT GRAPHIC PAGE 

*PV START OF GRAPHIC RAM (MS BYTE) 

*DV* *PV HORIZ COORD - START POINT 

*DV* *PV VERT COORD - START POINT 

*PV SCREEN'S COLOR SET ARGUMENT 

*PV PRESET/PSET FLAG: 0=PRESET, 1=PSET 

*DV* *PV HORIZ COORD - ENDING POINT 

*DV* *PV VERT COORD - ENDING POINT 

*PV HORIZ COORD - DEFAULT COORD 

*PV VERT COORD - DEFAULT COORD 



*TV FLAG TO INDICATE IF GRAPHIC DATA HAS BEEN CHANGED 

*TV STACK POINTER STORAGE DURING PAINT 

*PV OCTAVE VALUE (PLAY) 

*DV* *PV VOLUME HIGH VALUE (PLAY) 

*DV* *PV VOLUME LOW VALUE (PLAY) 

*PV NOTE LENGTH (PLAY) 

*PV TEMPO VALUE (PLAY) 

*TV TIMER FOR THE PLAY COMMAND 

*TV DOTTED NOTE TIMER SCALE FACTOR 

SUPER EXTENDED BASIC HI-RES MODE 

*DV* *PV DLOAD BAUD RATE CONSTANT $B0=300, $2C=1200 

SUPER EXTENDED BASIC HI -RES TEXT MODE 

*DV* *PV DLOAD TIMEOUT CONSTANT 

*DV* *PV ANGLE VALUE (DRAW) 

*DV* *PV SCALE VALUE (DRAW) 



*PV DSKCON OPERATION CODE 0-3 

*PV DSKCON DRIVE NUMBER 3 

*PV DSKCON TRACK NUMBER 34 

*PV DSKCON SECTOR NUMBER 1-18 

*PV DSKCON DATA POINTER 

*PV DSKCON STATUS BYTE 



TEMPORARY FCB POINTER 
SPARE: UNUSED VARIABLES 
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0296 




0297 




0298 




0299 


0100 


0300 


0103 


0301 


0106 


0302 


0109 


0303 


010C 


0304 


010F 


0305 




0306 


0112 


0307 


0112 


0308 




0309 




0310 


0115 


0311 


0116 


0312 


011A 


0313 


011B 


0314 


011D 


0315 




0316 




0317 




0318 




0319 




0320 




0321 




0322 




0323 




0324 




0325 




0326 




0327 




0328 




0329 




0330 




0331 




0332 




0333 




0334 




0335 




0336 




0337 




0338 




0339 




0340 




0341 




0342 


0120 


0343 


012A 


0344 


0134 


0345 




0346 




0347 


013E 


0348 


0140 


0349 


0142 


0350 


0144 


0351 


0146 


0352 


0148 


0353 


014A 


0354 


014C 


0355 


014E 


0356 


0150 


0357 




0358 




0359 




0360 




0361 




0362 




0363 




0364 




0365 




0366 




0367 




0368 




0369 





SW3VEC 


RMB 


3 


SW2VEC 


RMB 


3 


SWIVEC 


RMB 


3 


NMIVEC 


RMB 


3 


IRQVEC 


RMB 


3 


FRQVEC 


RMB 


3 


TIMVAL 






USRJMP 


RMB 


3 


* 


RMB 


2 


* 


RMB 


1 


RVSEED 


RMB 


1 




RMB 


4 


CASFLG 


RMB 


1 


DEBVAL 


RMB 


2 


EXPJMP 


RMB 


3 



** 



BASIC EXBASKDOSBASIC 

$XXXX $XXXX $3B3B SWI3 VECTOR 

$XXXX $XXXX $3B3B SWI2 VECTOR 

$XXXX $XXXX $XXXX SWI VECTOR 

$XXXX $XXXX $D7AE NMI VECTOR 

$A9B3 $894C $D7BC IRQ VECTOR 

$A0F6 $A0F6 $A0F6 FIRQ VECTOR 



JUMP ADDRESS FOR BASIC'S USR FUNCTION 

TIMER VALUE FOR EXBAS 

UNUSED BY EXBAS OR DISK BASIC 

* FLOATING POINT RANDOM NUMBER SEED EXPONENT 

* MANTISSA: INITIALLY SET TO $804FC75259 
UPPER CASE/LOWER CASE FLAG: $FF=UPPER, 0=LOWER 
KEYBOARD DEBOUNCE DELAY (SET TO $45E) 

JUMP ADDRESS FOR EXPONENTIATION 

INITIALLY SET TO ERROR FOR BASIC, $8489 FOR EX BASIC 



*** COMMAND INTERPRETATION VECTOR TABLE 
** FOUR SETS OF 10 BYTE TABLES: 



** THE LAST USED TABLE MUST BE FOLLOWED BY A ZERO BYTE 

* THE JUMP TABLE VECTORS (3,4 AND 8,9) POINT TO THE JUMP TABLE FOR 

* THE FIRST TABLE. FOR ALL OTHER TABLES, THESE VECTORS POINT TO A 

* ROUTINE WHICH WILL VECTOR YOU TO THE CORRECT JUMP TABLE. 

* SUPER ENHANCED BASIC HAS MODIFIED THIS SCHEME SO THAT THE USER 

* TABLE MAY NOT BE ACCESSED. ANY ADDITIONAL TABLES WILL HAVE TO BE 

* ACCESSED FROM A NEW COMMAND HANDLER. 

* BYTE DESCRIPTION 

* NUMBER OF RESERVED WORDS 

* 1,2 LOOKUP TABLE OF RESERVED WORDS 

* 3,4 JUMP TABLE FOR COMMANDS (FIRST TABLE) 

* VECTOR TO EXPANSION COMMAND HANDLERS (ALL BUT FIRST TABLE) 

* 5 NUMBER OF SECONDARY FUNCTIONS 

* 6,7 LOOKUP TABLE OF SECONDARY FUNCTIONS (FIRST TABLE) 

* VECTOR TO EXPANSION SECONDARY COMMAND HANDLERS (ALL BUT 

* FIRST TABLE) 

* 8,9 JUMP TABLE FOR SECONDARY FUNCTIONS 

* 10 BYTE - END OF TABLE FLAG (LAST TABLE ONLY) 



COMVEC 



USR FUNCTION VECTOR ADDRESSES (EX BASIC ONLY) 



RMB 


10 


RMB 


10 


RMB 


10 


JNCT 


ION ' 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 


RMB 


2 



BASIC'S TABLE 

EX BASIC'S TABLE 

DISC BASIC'S TABLE (UNUSED BY EX BASIC) 



USR 


VECTOR 


USR 


1 


USR 


2 


USR 


3 


USR 


4 


USR 


5 


USR 


6 


USR 


7 


USR 


8 


USR 


9 



*** THE ABOVE 20 BYTE USR ADDR VECTOR TABLE IS MOVED TO 
*** $95F-$972 BY DISC BASIC. THE 20 BYTES FROM $13E-$151 
*** ARE REDEFINED AS FOLLOWS: 



RMB 
FCB 
RMB 9 



10 



USER (SPARE) COMMAND INTERPRETATION TABLE SPACE 
END OF COMM INTERP TABLE FLAG 
UNUSED BY DISK BASIC 



COMMAND INTERPRETATION TABLE VALUES 

BYTE BASIC EX BASIDISK BASIC 

53 BASIC TABLE 

1,2 $AA66 
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0370 




0371 




0372 




0373 




0374 




0375 




0376 




0377 




0378 




0379 




0380 




0381 




0382 




0383 




0384 




0385 




0385 




0387 




0388 




0389 




0390 


0152 


0391 


015A 


0392 


015B 


0393 


015C 


0394 


015D 


0395 




0396 




0397 




0398 




0399 




0400 




0401 




0402 




0403 




0404 




0405 




0406 




0407 




0408 




0409 




0410 




0411 




0412 


015E 


0413 


0161 


0414 


0164 


0415 


0167 


0416 


016A 


0417 


016D 


0418 


0170 


0419 


0173 


0420 


0176 


0421 


0179 


0422 


017C 


0423 


017F 


0424 


0182 


0425 


0185 


0426 


0188 


0427 


018B 


0428 


018E 


0429 


0191 


0430 


0194 


0431 


0197 


0432 


019A 


0433 


019D 


0434 


01A0 


0435 




0436 




0437 




0438 


01A3 


0439 


01A6 


0440 




0441 


01A9 


0442 


01D1 


0443 


01DA 



* 




5 


* 




6,7 


* 




8,9 


* 







* 




1,2 


* 




3,4 


* 




5 


* 




6,7 


* 




8,9 


* 







* 




1,2 


* 




3,4 


* 




5 


* 




6,7 


* 




8,9 


KEYBUF 


RMB 


8 


POTVAL 


RMB 


1 




RMB 


1 




RMB 


1 




RMB 


1 



$AB67 
20 

$AB1A 
$AA29 



25 EX BASIC TABLE 

$8183 

$813C $CE2E ($CF0A 2.1) 

14 

$821E 

$8168 $CE56 ($CF32 2.1) 



DISK BASIC TABLE 



19 (20 2.1) 

$C17F 

$C2C0 

6 

$C201 

$C236 



KEYBOARD MEMORY BUFFER 
LEFT VERTICAL JOYSTICK DATA 
LEFT HORIZONTAL JOYSTICK DATA 
RIGHT VERTICAL JOYSTICK DATA 
RIGHT HORIZONTAL JOYSTICK DATA 



BASIC'S RAM VECTORS - INITIALIZED TO RTS BY COLOR BASIC 

25 SETS OF 3 BYTE INSTRUCTIONS WHICH ARE CALLED BY COLOR BASIC 

EXTENDED AND DISK BASIC. THEIR PURPOSE IS TO ALLOW ENHANCEMENTS (SUCH 

AS EX BASIC AND DOS BASIC) AS MORE ROMS ARE ADDED TO THE 

SYSTEM BY EFFECTIVELY ALLOWING MORE CODE TO BE ADDED TO THE 

ROUTINES IN EARLIER ROMS. THIS NEW CODE IS LOCATED IN THE NEW ROMS 

AND THE ADDRESS TO GET TO THE NEW CODE IS IN BYTES 1 & 2 OF THE 

RAM VECTOR. BYTE WILL CONTAIN A $7E WHICH IS THE FIRST BYTE OF 

THE JMP INSTRUCTION. 

THE FIRST ADDRESS IN THIS TABLE IS THE ADDRESS IN BASIC WHICH 

CALLS THE RAM VECTOR, THE SECOND ADDRESS IS THE VALUE WHICH 

EX BASIC PUTS IN THE RAM VECTOR (IF ANY) AND THE THIRD ADDRESS 

IS THE VALUE WHICH DISK BASIC PUTS THERE (IF ANY) 



RVEC0 


RMB 


3 


RVEC1 


RMB 


3 


RVEC2 


RMB 


3 


RVEC3 


RMB 


3 


RVEC4 


RMB 


3 


RVEC5 


RMB 


3 


RVEC6 


RMB 


3 


RVEC7 


RMB 


3 


RVEC8 


RMB 


3 


RVEC9 


RMB 


3 


RVEC10 


RMB 


3 


RVEC11 


RMB 


3 


RVEC12 


RMB 


3 


RVEC13 


RMB 


3 


RVEC14 


RMB 


3 


RVEC15 


RMB 


3 


RVEC16 


RMB 


3 


RVEC17 


RMB 


3 


RVEC18 


RMB 


3 


RVEC19 


RMB 


3 


RVEC20 


RMB 


3 


RVEC21 


RMB 


3 


RVEC22 


RMB 


3 



RVEC23 


RMB 


3 


RVEC24 


RMB 


3 


STRSTK 


RMB 


8*5 


CFNBUF 


RMB 


9 


CASBUF 


RMB 


256 



2.0 

$A5F6 

$A5B9 

$A35F 

$A282 

$A176 

$A3ED 

$A406 

$A426 

$A42D 

$B918 

$B061 

$A549 

$A390 

$A4BF 

$A5CE 

$B223 

$AC46 

$AC49 

$AE75 

$BD22 

$AD9E 

$A8C4 

$A910 

$8162 

$8AFA 

$975C 

$B821 

$B7C2 



2.1 



$8273 
$8CF1 



$8286 
$8E90 



$8846 

$88F0 
$829C 
$87EF 
$82B9 



$8304 



1.0 

$C426 
$C838 
$C843 
$CB4A 
$C58F 
$C818 
$C81B 
$CA3B 
$CA4B 
$8E90 
$CC5B 
$C859 
$C6B7 
$CA36 
$CA60 
$CDF6 
$C6B7 
$C24D 
$C990 



1.1 

$C44B 



$C893 
$CC1C 
$C5BC 
$C848 
$C84B 
$CAE9 
$CAF9 
$8E90 
$CD35 
$C8A9 
$C6E4 
$CAE4 
$C90C 
$CED2 
$C6E4 
$C265 
$CA3E 

$C8B0 



$C29A $C2B2 



OPEN COMMAND 

DEVICE NUMBER VALIDITY CHECK 

SET PRINT PARAMETERS 

CONSOLE OUT 

CONSOLE IN 

INPUT DEVICE NUMBER CHECK 

PRINT DEVICE NUMBER CHECK 

CLOSE ALL FILES 

CLOSE ONE FILE 

PRINT 

INPUT 

BREAK CHECK 

INPUTTING A BASIC LINE 

TERMINATING BASIC LINE INPUT 

EOF COMMAND 

EVALUATE AN EXPRESSION 

RESERVED FOR ON ERROR GOTO COMMAND 

ERROR DRIVER 

RUN 

ASCII TO FLOATING POINT CONVERSION 

BASIC'S COMMAND INTERPRETATION LOOP 

RESET/SET/POINT COMMANDS 

CLS 

EXBAS' SECONDARY TOKEN HANDLER 

EXBAS' RENUM TOKEN CHECK 

EXBAS' GET/PUT 

CRUNCH BASIC LINE 

UNCRUNCH BASIC LINE 



STRING DESCRIPTOR STACK 
CASSETTE FILE NAME BUFFER 
CASSETTE FILE DATA BUFFER 
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0444 


02DA 


0445 


02DC 


0446 


03D7 


0447 




0448 


0400 


0449 




0450 




0451 


0600 


0452 


0700 


0453 


0800 


0454 


084A 


0455 


0894 


0455 


08DE 


0457 


0928 


0458 


0948 


0459 


094A 


0450 


094C 


0461 


0954 


0462 


0957 


0463 




0464 


0958 


0465 


0959 


0466 




0467 


095A 


0468 


095B 


0469 


095C 


0470 


095D 


0471 


095E 


0472 


095F 


0473 




0474 




0475 


0973 


0476 


0974 


0477 


0976 


0478 




0479 


0977 


0480 


0978 


0481 




0482 


097A 


0483 




0484 


097C 


0485 


097E 


0486 


0982 


0487 


0983 


0488 




0489 


0985 


0490 


0986 


0491 


0987 


0492 


0988 


0493 




0494 




0495 




0496 


0989 


0497 




0498 




0499 




0500 




0501 




0502 




0503 




0504 




0505 




0506 




0507 




0508 




0509 




0510 




0511 




0512 




0513 




0514 




0515 




0516 




0517 





LINHDR 


RMB 


2 


LINBUF 


RMB 


LBUFMX+1 


STRBUF 


RMB 


41 


VIDRAM 


RMB 


200 


*START OF 


ADDITIONAL RAM 


DBUF0 


RMB 


SECLEN 


DBUF1 


RMB 


SECLEN 


FATBL0 


RMB 


FATLEN 


FATBL1 


RMB 


FATLEN 


FATBL2 


RMB 


FATLEN 


FATBL3 


RMB 


FATLEN 


FCBV1 


RMB 


16*2 


RNBFAD 


RMB 


2 


FCBADR 


RMB 


2 


DNAMBF 


RMB 


8 


DEXTBF 


RMB 


3 


DFLTYP 


RMB 


1 


DASCFL 


RMB 


1 


DRUNFL 


RMB 


1 


DEFDRV 


RMB 


1 


FCBACT 


RMB 


1 


DRESFL 


RMB 


1 


DLOADFL 


RMB 


1 


DMRGFL 


RMB 


1 


DUSRVC 


RMB 


20 


*** DISK 


FILE WORK AREA 


* EXISTING FILE 


V973 


RMB 


1 


V974 


RMB 


2 


V976 


RMB 


1 


* UNUSED FILE 




V977 


RMB 


1 


V978 


RMB 


2 



LINE INPUT BUFFER HEADER 
BASIC LINE INPUT BUFFER 
STRING BUFFER 

VIDEO DISPLAY AREA 

VARIABLE STORAGE (DISK BASIC ONLY) 
I/O BUFFER #0 
I/O BUFFER #1 

FILE ALLOCATION TABLE - DRIVE 

FILE ALLOCATION TABLE 

FILE ALLOCATION TABLE 

FILE ALLOCATION TABLE 



SYSTEM) 



SHUT DOWN ALL FCBS 
LOAD ERROR 



WFATVL 



RMB 



DFFLEN 


RMB 


2 


DR0TRK 


RMB 


4 


NMIFLG 


RMB 


1 


DNMIVC 


RMB 


2 


RDYTMR 


RMB 


1 


DRGRAM 


RMB 


1 


DVERFL 


RMB 


1 


ATTCTR 


RMB 


1 



DFLBUF RMB SECLEN 
*RANDOM FILE RESERVED AREA 
*FILE CONTROL BLOCKS AND BUFFERS 
^GRAPHIC PAGE RESERVED AREA 
*BASIC PROGRAM 
VARIABLE STORAGE AREA 
*ARRAY STORAGE AREA 

* FREE MEMORY 

*STACK 

*STRING SPACE 



DRIVE 

DRIVE 

DRIVE 
FILE BUFFER VECTORS (15 USER, 
START OF FREE RANDOM FILE BUFFER AREA 
START OF FILE CONTROL BLOCKS 
DISK FILE NAME BUFFER 
DISK FILE EXTENSION NAME BUFFER 
*DV* DISK FILE TYPE: 0=BASIC, 1=DATA, 2=MACHINE 

LANGUAGE, 3=TEXT EDITOR SOURCE FILE 
*DV* ASCII FLAG: 0=CRUNCHED OR BINARY, $FF=ASCII 
RUN FLAG: (IF BIT 1=1 THEN RUN, IF BIT 0=1, THEN CLOSE 
ALL FILES BEFORE RUNNING) 
DEFAULT DRIVE NUMBER 
NUMBER OF FCBS ACTIVE 
RESET FLAG: <>0 WILL CAUSE A 'NEW' 
LOAD FLAG: CAUSE A 'NEW' FOLLOWING 
MERGE FLAG: 0=N0 MERGE, $FF=MERGE 
DISK BASIC USR COMMAND VECTORS 
FOR DIRECTORY SEARCH 

SECTOR NUMBER 

RAM DIRECTORY IMAGE ADDRESS 

FIRST GRANULE NUMBER 

SECTOR NUMBER 

RAM DIRECTORY IMAGE ADDRESS 

WRITE FAT VALUE: NUMBER OF FREE GRANULES WHICH MUST BE TAKEN 

FROM THE FAT TO TRIGGER A WRITE FAT TO DISK SEQUENCE 

DIRECT ACCESS FILE RECORD LENGTH 

CURRENT TRACK NUMBER, DRIVES 0,1,2,3 

NMI FLAG: 0=DON'T VECTOR <>0=YECTOR OUT 

NMI VECTOR: WHERE TO JUMP FOLLOWING AN NMI 

INTERRUPT IF THE NMI FLAG IS SET 

MOTOR TURN OFF TIMER 

RAM IMAGE OF DSKREG ($FF40) 

VERIFY FLAG: 0=OFF, $FF=ON 

READ/WRITE ATTEMPT COUNTER: NUMBER OF TIMES THE 

DISK WILL ATTEMPT TO RETRIEVE OR WRITE DATA 

BEFORE IT GIVES UP AND ISSUES AN ERROR. 

INITIALIZED TO SECLEN BY DISKBAS 
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0518 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0525 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0535 
0537 
0538 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0545 
0547 
0548 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0555 
0557 
0558 
0559 
0550 
0551 
0552 
0553 
0554 
0555 
0555 
0557 
0558 
0559 
0570 
0571 
0572 
0573 
0574 
0575 
0575 
0577 
0578 
0579 
0580 
0581 
0582 
0583 
0584 
0585 
0585 
0587 
0588 
0589 
0590 
0591 



8000 



A000 
C000 
C000 
E000 



FE00 
FE02 
FE03 
FE04 
FE05 
FE05 
FE08 
FE09 
FE0A 
FE0B 
FE0C 
FE0E 
FE10 
FEU 
FE13 
FE15 
FE17 
FE18 
FE19 
FE59 
FEED 

FEEE 

FEEE 
FEF1 
FEF4 
FEF7 
FEFA 
FEFD 



FF00 
FF00 



FF01 



FF02 



*USER PROGRAM RESERVED AREA 

*END OF RAM 

ORG 





RMB 


$2000 




RMB 


$2000 


ROMPAK 


EQU 


* 


DOSBAS 


RMB 


$2000 




RMB 


$1F00 


* START OF ADDITIONAL 


H.CRSLOC 


RMB 


2 


H.CURSX 


RMB 


1 


H.CURSY 


RMB 


1 


H. COLUMN 


RMB 


1 


H.ROW 


RMB 


1 


H.DISPEN 


RMB 


2 


H.CRSATT 


RMB 


1 




RMB 


1 


H.FCOLOR 


RMB 


1 


H.BCOLOR 


RMB 


1 


H.ONBRK 


RMB 


2 


H.ONERR 


RMB 


2 


H. ERROR 


RMB 


1 


H.ONERRS 


RMB 


2 


H.ERLINE 


RMB 


2 


H.ONBRKS 


RMB 


2 


H.ERRBRK 


RMB 


1 


H.PCOUNT 


RMB 


1 


H.PBUF 


RMB 


80 




RMB 


132 


INT. FLAG 


RMB 


1 


* TABLE OF JUMP 


VECTO! 


INT. JUMP 






INT.SWI3 


RMB 


3 


INT.SWI2 


RMB 


3 


INT.FIRQ 


RMB 


3 


INT. IRQ 


RMB 


3 


INT.SWI 


RMB 


3 


INT.NMI 


RMB 


3 


* I/O AREA 





EXTENDED BASIC ROM 
COLOR BASIC ROM 

DISK BASIC ROM/ENHANCED BASIC INIT CODE 
ENHANCED BASIC 



IONAL VARIABLES USED BY SUPER EXTENDED BASIC 



CURRENT LOCATION OF CURSOR 

X POSITION OF CURSOR 

Y POSITION OF CURSOR 

COLUMNS ON HI-RES ALPHA SCREEN 

ROWS ON HI-RES ALPHA SCREEN 

END OF HI-RES DISPLAY SCREEN 

CURRENT CURSOR'S ATTRIBUTES 

UNUSED 

FOREGROUND COLOR 

BACKGROUND COLOR 

ON BRK GOTO LINE NUMBER 

ON ERR GOTO LINE NUMBER 

ERROR NUMBER ENCOUNTERED OR $FF (NO ERROR) 

ON ERR SOURCE LINE NUMBER 

LINE NUMBER WHERE ERROR OCCURRED 

ON BRK SOURCE LINE NUMBER 

STILL UNKNOWN, HAS TO DO WITH ERR, BRK 

PRINT COUNT, CHARACTERS TO BE HPRINTED 

PRINT BUFFER, HPRINT CHARS. STORED HERE 

UNUSED 

INTERRUPT VALID FLAG. 0=NOT VALID, $55=VALID 



VECTORS TO INTERRUPT SERVICING ROUTINES 



PIA0 

BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 

BIT0 

BIT1 

BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 

BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT5 



PERIPHERAL INTERFACE ADAPTER ONE 

AND RIGHT JOYSTICK SWITCH 1 
AND LEFT JOYSTICK SWITCH 1 
AND RIGHT JOYSTICK SWITCH 2 
AND LEFT JOYSTICK SWITCH 2 



EQU * 

KEYBOARD ROW 1 
KEYBOARD ROW 2 
KEYBOARD ROW 3 
KEYBOARD ROW 4 
KEYBOARD ROW 5 
KEYBOARD ROW 6 
KEYBOARD ROW 7 
JOTSTICK COMPARISON IINPUT 

CONTROL OF HSYNC (53.5ps) = IRQ* TO CPU DISABLED 



INTERRUPT 

CONTROL OF INTERRUPT 

POLARITY 

NORMALLY 1 

SEL 1 

ALWAYS 1 

ALWAYS 1 

NOT USED 

HORIZONTAL SYNC INTERRUPT FLAG 



1 = IRQ* TO CPU ENABLED 

= FLAG SET ON FALLING EDGE OF HS 

1 = FLAG SET ON RISING EDGE OF HS 
= CHANGES FF00 TO DATA DIRECTION 
LSB OF TWO ANALOG MUX SELECT LINES 



KEYBOARD COLUMN 

KEYBOARD COLUMN 

KEYBOARD COLUMN 

KEYBOARD COLUMN 

KEYBOARD COLUMN 

KEYBOARD COLUMN 

KEYBOARD COLUMN 



1 
2 
3 

4 
5 
6 
7 / 



RAM SIZE OUTPUT 
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0592 
0593 
0594 
0595 
0595 
0597 
0598 
0599 
0500 
0501 
0502 
0503 
0504 
0505 
0505 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0515 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0525 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0535 
0537 
0538 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0545 
0547 
0548 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0555 
0557 
0558 
0559 
0550 
0551 
0552 
0553 
0554 
0555 



FF03 



FF04 
FF20 
FF20 

FF20 



FF21 



FF22 



FF23 



FF24 
FF40 
FF40 

FF40 



FF41 



FF48 



BIT7 

BIT0 

BIT1 

BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 



DA 
PIA1 

BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 

BIT0 

BIT1 

BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 

BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 

BIT0 

BIT1 

BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 



PIA2 

DSKREG 

BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT5 
BIT7 



KEYBOARD COLUMN 8 



CONTROL OF VSYNC (15.557ms) = IRQ* TO CPU DISABLED 

INTERRUPT 

CONTROL OF INTERRUPT 

POLARITY 

1 



NORMALLY 

SEL 2 

ALWAYS 1 

ALWAYS 1 

NOT USED 

FIELD SYNC INTERRUPT FLAG 



1 = IRQ* TO CPU ENABLED 

= FLAG SET ON FALLING EDGE OF FS 

1 = FLAG SET ON RISING EDGE OF FS 

= CHANGES FF02 TO DATA DIRECTION 

MSB OF TWO ANALOG MUX SELECT LINES 



RMB 28 



EQU 



PIA0 IMAGES 



PERIPHERAL INTERFACE ADAPTER TWO 



CASSETTE DATA 


INPUT 


RS-232C DATA OUTPUT 


5 


BIT 


D/A 


LSB 




6 


BIT 


D/A 






6 


BIT 


D/A 






6 


BIT 


D/A 






6 


BIT 


D/A 






6 


BIT 


D/A 


MSB 





CONTROL OF CD 

(RS-232C STATUS) 

CONTROL OF INTERRUPT 

POLARITY 

NORMALLY 1 

CASSETTE MOTOR CONTROL 

ALWAYS 1 

ALWAYS 1 

NOT USED 

CD INTERRUPT FLAG 

RS-232C DATA INPUT 

SINGLE BIT SOUND OUTPUT 

RAM SIZE INPUT 

RGB MONITOR SENSING INPUT 

VDG CONTROL OUTPUT 

VDG CONTROL OUTPUT 

VDG CONTROL OUTPUT 

VDG CONTROL OUTPUT 

CONTROL OF CARTRIDGE 

INTERRUPT 

CONTROL OF INTERRUPT 

POLARITY 

NORMALLY 1 

SOUND ENABLE 

ALWAYS 1 

ALWAYS 1 

NOT USED 

CARTRIDGE INTERRUPT FLAG 



FIRQ* TO CPU DISABLED 

FIRQ* TO CPU ENABLED 

FLAG SET ON FALLING EDGE OF CD 

FLAG SET ON RISING EDGE OF CD 

CHANGES FF20 TO DATA DIRECTION 

OFF 1 = ON 



CSS 

GM0 & UPPER/LOWER CASE* 

GM1 & INVERT 

GM2 

A*/G 

= FIRQ* TO CPU DISABLED 

1 = FIRQ* TO CPU ENABLED 

= FLAG SET ON FALLING EDGE OF CART* 

1 = FLAG SET ON RISING EDGE OF CART* 
= CHANGES FF22 TO DATA DIRECTION 



RMB 28 

RMB 1 

DRIVE SELECT 
DRIVE SELECT 1 
DRIVE SELECT 2 
DRIVE MOTOR ENABLE 
WRITE PRECOMPENSATION 
DENSITY FLAG 
DRIVE SELECT 3 
HALT FLAG 



PIA1 IMAGES 

DISK CONTROL REGISTER 



MOTORS OFF 
NO PRECOMP 
SINGLE 



DISABLED 



1 = MOTORS ON 

1 = PRECOMP 

1 = DOUBLE 

1 = ENABLED 



RMB 



7 



DSKREG IMAGES 



* FLOPPY DISK CONTROLLER INTERNAL REGISTERS 

FDCREG RMB 1 STATUS/COMMAND REGISTER 
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0666 
0667 
0668 
0669 
0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0678 
0679 
0680 
0681 
0682 
0683 
0684 
0685 
0686 
0687 
0688 
0689 
0690 
0691 
0692 
0693 
0694 
0695 
0696 
0697 
0698 
0699 
0700 
0701 
0702 
0703 
0704 
0705 
0706 
0707 
0708 
0709 
0710 
0711 
0712 
0713 
0714 
0715 
0716 
0717 
0718 
0719 
0720 
0721 
0722 
0723 
0724 
0725 
0726 
0727 
0728 
0729 
0730 
0731 
0732 
0733 
0734 
0735 
0736 
0737 
0738 
0739 



FF49 
FF4A 
FF4B 
FF4C 

FF50 
FF60 
FF61 
FF62 
FF63 

FF68 
FF69 
FF6A 
FF6B 
FF6C 
FF70 
FF7D 
FF7E 
FF7F 

FF80 



FF90 
FF90 



FF91 
FF91 



COMMANDS TYPE 


COMMA 


.ND 


CODE 




I 


RESTORE 


$03 




I 


SEEK 




$17 




I 


STEP 




$23 




I 


STEP 


IN 


$43 




I 


STEP 


OUT 


$53 




II 


READ 


SECTOR 


$80 




II 


WRITE 


SECTOR 


$A0 




III 


READ 


ADDRESS 


$C0 




III 


READ 


TRACK 


$E4 




III 


WRITE 


TRACK 


$F4 




IV 


FORCE 


. INTERRUPT 


$D0 




STATUS BIT 


TYPE 


I 


READ ADDRESS/SECTOR/TRACK 


WRITE SECTOR/TRACK 


S0 


BUSY 




BUSY 


BUSY 


SI 


INDEX 




DRQ 


DRQ 


S2 


TRACK 


. 


LOST DATA 


LOST DATA 


S3 


CRC ERROR 


CRC ERROR (EXCEPT TRACK) 


CRC ERROR (EXCEPT TRACK) 


S4 


SEEK 


ERROR 


RNF (EXCEPT TRACK) 


RNF (EXCEPT TRACK) 


S5 


HEAD 


LOADED 


RECORD TYPE (SECTOR ONLY) 


WRITE FAULT 


S6 


WRITE 


PROTECT 




WRITE PROTECT 


S7 


NOT READY 


NOT READY 


NOT READY 


RMB 


1 




TRACK REGISTER 




RMB 


1 




SECTOR REGISTER 




RMB 


1 




DATA REGISTER 




RMB 


4 




FDCREG IMAGES 




RMB 


16 




UNUSED SPACE 




RMB 


1 




X COORDINATE FOR X-PAD 




RMB 


1 




Y COORDINATE FOR X-PAD 




RMB 


1 




STATUS REGISTER FOR X-PAD 




RMB 


5 




UNUSED 




* RS-232 PROGRAM PAK 








RMB 


1 




READ/WRITE DATA REGISTER 




RMB 


1 




STATUS REGISTER 




RMB 


1 




COMMAND REGISTER 




RMB 


1 




CONTROL REGISTER 




RMB 


4 








RMB 


13 








RMB 


1 




SOUND/SPEECH CARTRIDGE RESET 


RMB 


1 




SOUND/SPEECH CARTRIDGE READ/WRITE 


RMB 


1 




MULTI-PAK PROGRAMMING REGISTER 


RMB 


64 




RESERVED FOR FUTURE EXPANSION 



* VIDEO CONTROL REGISTERS 
INIT0 RMB 1 



BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 



INIT1 

BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 



MC0 
MCI 
MC2 
MC3 
FEN 
IEN 
M/P 
COCO 

MCI MC0 

x 

1 
1 1 

RMB 1 

TR 



TINS 



INITIALIZATION REGISTER 

ROM MAP CONTROL (SEE TABLE BELOW) 

ROM MAP CONTROL (SEE TABLE BELOW) 

STANDARD SCS 

1 = DRAM AT 0XFEXX IS CONSTANT 

1 = CHIP FIRQ OUTPUT ENABLED 

1 = CHIP IRQ OUTPUT ENABLED 

1 = MMU ENABLED 

1 = COCO 1 & 2 COMPATIBLE 

ROM MAPPING 

16K INTERNAL, 16K EXTERNAL 

32K INTERNAL 

32L EXTERNAL (EXCEPT FOR VECTORS) 

INITIALIZATION REGISTER 1 

MMU TASK REGISTER SELECT 



TIMER INPUT SELECT: l=70ns, 0=63ns 
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0740 
0741 
0742 
0743 
0744 
0745 
0746 
0747 
0748 
0749 
0750 
0751 
0752 
0753 
0754 
0755 
0755 
0757 
0758 
0759 
0750 
0761 
0762 
0763 
0764 
0765 
0766 
0767 
0768 
0769 
0770 
0771 
0772 
0773 
0774 
0775 
0776 
0777 
0778 
0779 
0780 
0781 
0782 
0783 
0784 
0785 
0786 
0787 
0788 
0789 
0790 
0791 
0792 
0793 
0794 
0795 
0796 
0797 
0798 
0799 
0800 
0801 
0802 
0803 
0804 
0805 
0806 
0807 



FF92 
FF92 



IRQENR 



RMB 



FF93 
FF93 



FF94 
FF96 

FF98 

FF98 



FF99 
FF99 



BIT0 


EI0 




BIT1 


Ell 




BIT2 


EI2 




BIT3 


VBORD 




BIT4 


HBORD 




BIT5 


TMR 




BIT6 






BIT7 






FIRQENR 


RMB 


1 


BIT0 


EI0 




BIT1 


Ell 




BIT2 


EI2 




BIT3 


VBORD 




BIT4 


HBORD 




BIT5 


TMR 




BIT6 






BIT7 






V. TIMER 


RMB 


2 




RMB 


2 


VIDEOREG 


RMB 


1 


BIT0 


LPR0 




BIT1 


LPR1 




BIT2 


LPR2 




BIT3 


H50 




BIT4 


MOCH 




BIT5 


BPI 




BIT6 






BIT7 


BP 




LPR2 


LPR1 


LPR0 

















1 





1 








1 


1 


1 








1 





1 


1 


1 





1 


1 


1 


VIDEOREG 


RMB 


1 


BIT0 


CRES0 




BIT1 


CRES1 




BIT2 


HRES0 




BIT3 


HRES1 




BIT4 


HRES2 




BIT5 


LPF0 




BIT6 


LPF1 




BIT7 








LPF1 


LPF0 















1 




1 







1 


1 



IRQ INTERRUPT ENABLE REGISTER 

CARTRIDGE IRQ ENABLED 
KEYBOARD IRQ ENABLED 
SERIAL DATA IRQ ENABLED 
VERTICAL BORDER IRQ ENABLED 
HORIZONTAL BORDER IRQ ENABLED 
INTERRUPT FROM TIMER ENABLED 



FIRQ INTERRUPT ENABLE REGISTER 

CARTRIDGE FIRQ ENABLED 
KEYBOARD FIRQ ENABLED 
SERIAL DATA FIRQ ENABLED 
VERTICAL BORDER FIRQ ENABLED 
HORIZONTAL BORDER FIRQ ENABLED 
INTERRUPT FROM TIMER ENABLED 



TIMER REGISTER 

RESERVED FOR FUTURE EXPANSION 

VIDEO MODE REGISTER 

LINES PER ROW (SEE TABLE BELOW) 
LINES PER ROW (SEE TABLE BELOW) 
LINES PER ROW (SEE TABLE BELOW) 
1 = 50 Hz VERTICAL REFRESH 
1 = MONOCHROME (ON COMPOSITE) 
1 = BURST PHASE INVERTED 



ALPHA, 



BIT PLANE 



0809 
0810 
0811 
0812 
0813 



LINES PER CHARACTER ROW 

1 (GRAPHICS MODES) 

2 (COCO 1 & 2 ONLY) 

3 (COCO 1 & 2 ONLY) 



(RESERVED) 

12 

(RESERVED) 

VIDEO MODE REGISTER 

COLOR RESOLUTION 

COLOR RESOLUTION 

HORIZONTAL RESOLUTION 

HORIZONTAL RESOLUTION 

HORIZONTAL RESOLUTION 

LINES PER FIELD (SEE TABLE BELOW) 

LINES PER FIELD (SEE TABLE BELOW) 



LINES PER FIELD 

192 

200 

RESERVED 

225 



VIDEO RESOLUTION 

ALPHA: BP = 0, COCO 

MODE 

32 CHARACTER 

40 CHARACTER 

80 CHARACTER 
GRAPHICS: BP = 1, COCO = 

PIXELSxCOLORS HRES2 HRES1 HRES0 CRES1 CRES0 

640x4 1110 1 



HRES 


2 HRES1 


HRES0 


CRES1 


CRES0 












1 







1 




1 


1 




1 




1 
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0814 
0815 
0816 
0817 
0818 
0819 
0820 
0821 
0822 
0823 
0824 
0825 
0825 
0827 
0828 
0829 
0830 
0831 
0832 
0833 
0834 
0835 
0836 
0837 
0838 
0839 
0840 
0841 
0842 
0843 
0844 
0845 
0846 
0847 
0848 
0849 
0850 
0851 
0852 
0853 
0854 
0855 
0856 
0857 
0858 
0859 
0860 
0861 
0862 
0863 
0864 
0865 
0866 
0867 
0868 
0869 
0870 
0871 
0872 
0873 
0874 
0875 
0876 
0877 
0878 
0879 



0881 
0882 
0883 
0884 
0885 
0886 
0887 



640x2 

512x4 

512x2 

320x16 

320x4 

256x16 

256x4 

256x2 

160x16 

* COCO MODE SELECTION 



1 1 

1 
1 





DISPLAY MODE 




REG. 


FF22 










V2 


VI 


V0 


7 


6 


5 


4 


3 


ALPHA 














X 


X 





CSS 


ALPHA INVERTED 














X 


X 





CSS 


SEMIGRAPHICS 4 














X 


X 





X 


64x64 COLOR GRAPHICS 








1 


1 











CSS 


128x64 GRAPHICS 








1 


1 








1 


CSS 


128x64 COLOR GRAPHICS 





1 





1 





1 





CSS 


128x96 GRAPHICS 





1 


1 


1 





1 


1 


CSS 


128x96 COLOR GRAPHICS 


1 








1 


1 








CSS 


128x96 GRAPHICS 


1 





1 


1 


1 





1 


CSS 


128x96 COLOR GRAPHICS 


1 


1 





1 


1 


1 





CSS 


256x192 GRAPHICS 


1 


1 





1 


1 


1 


1 


CSS 



CHARACTER 


BIT 





CHARACTER 


BIT 


1 


CHARACTER 


BIT 


2 


CHARACTER 


BIT 


3 


CHARACTER 


BIT 


4 


CHARACTER 


BIT 


5 


CHARACTER 


BIT 


6 



ALPHANUMERIC MODES 

TEXT SCREEN MEMORY 
EVEN BYTE 
BIT0 
BIT1 
BIT2 
BIT3 
BIT4 
BIT5 
BIT6 
BIT7 

ODD BYTE 

BIT0 

BIT1 

BIT2 

BIT3 

BIT4 

BIT5 

BIT6 

BIT7 
* ATTRIBUTES NOT AVAILABLE WHEN COCO 
GRAPHICS MODES 

16 COLOR MODES: (CRES1=1, CRES0 

BYTE FROM DRAM 



BGND0 
BGND1 
BGND2 
FGBD0 
FGND1 
FGND2 
UNDLN 
BLINK 



BACKGROUND COLOR BIT (PALETTE ADDR) 

BACKGROUND COLOR BIT (PALETTE ADDR) 

BACKGROUND COLOR BIT (PALETTE ADDR) 

FOREGROUND COLOR BIT (PALETTE ADDR) 

FOREGROUND COLOR BIT (PALETTE ADDR) 

FOREGROUND COLOR BIT (PALETTE ADDR) 

CHARACTERS ARE UNDERLINED 

CHARACTERS BLINK AT 1/2 SEC. RATE 
1 



0) 



BIT0 






PA0, 


SECOND PIXEL 


BIT1 






PA1, 


SECOND PIXEL 


BIT2 






PA2, 


SECOND PIXEL 


BIT3 






PA3, 


SECOND PIXEL 


BIT4 






PA0, 


FIRST PIXEL 


BIT5 






PA1, 


FIRST PIXEL 


BIT6 






PA2, 


FIRST PIXEL 


BIT7 






PA3, 


FIRST PIXEL 


4 COLOR MODES: 


(CRES1 


=0, CRES0 = 1) 


BYTE 


FROM 


DRAM 






BIT0 






PA0, 


FOURTH PIXEL 


BIT1 






PA1, 


FOURTH PIXEL 


BIT2 






PA0, 


THIRD PIXEL 


BIT3 






PA1, 


THIRD PIXEL 


BIT4 






PA0, 


SECOND PIXEL 


BIT5 






PA1, 


SECOND PIXEL 


BIT6 






PA0, 


FIRST PIXEL 


BIT7 






PA1, 


FIRST PIXEL 


2 COLOR MODES: 


(CRES1 


=0, CRES0 = 0) 


BYTE 


FROM 


DRAM 






BIT0 






PA0, 


EIGHTH PIXEL 


BIT1 






PA0, 


SEVENTH PIXEL 


BIT2 






PA0, 


SIXTH PIXEL 


BIT3 






PA0, 


FIFTH PIXEL 



DISK BASIC UNRAVELLED II 



APPENDIX A 
MEMORY MAP 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/26/1999 WALTER K ZYDHEK 



0889 
0890 
0891 
0892 
0893 
0894 
0895 
0896 
0897 
0898 
0899 
0900 
0901 
0902 
0903 
0904 
0905 
0905 
0907 
0908 
0909 
0910 
0911 
0912 
0913 
0914 
0915 
0916 
0917 
0918 
0919 
0920 
0921 
0922 
0923 
0924 
0925 
0926 
0927 
0928 
0929 
0930 
0931 
0932 
0933 
0934 
0935 
0936 
0937 
0938 
0939 
0940 
0941 
0942 
0943 
0944 
0945 
0946 
0947 
0948 
0949 
0950 
0951 
0952 
0953 
0954 
0955 
0956 
0957 
0958 
0959 
0960 
0961 



FF9A 
FF9A 



FF9B 
FF9C 



FF9C 



FF9D 
FF9D 



FF9E 
FF9E 



BIT4 
BIT5 
BIT6 
BIT7 
PALETTE ADDRESSES 

ADDRESS 

FFB0 

FFB1 

FFB2 

FFB3 

FFB4 

FFB5 

FFB6 

FFB7 

FFB8 

FFB9 

FFBA 

FFBB 

FFBC 

FFBD 

FFBE 

FFBF 



V. BORDER 


RMB 1 


BIT0 


BLU0 


BIT1 


GRN0 


BIT2 


RED0 


BIT3 


BLU1 


BIT4 


GRN1 


BIT5 


RED1 


BIT6 




BIT7 






RMB 1 


V. SCROLL 


RMB 1 


BIT0 


VSC0 


BIT1 


VSC1 


BIT2 


VSC2 


BIT3 


VSC3 


BIT4 




BIT5 




BIT6 




BIT7 




* IN COCO 


MODE, T! 


V.OFSET1 


RMB 1 


BIT0 


Yll 


BIT1 


Y12 


BIT2 


Y13 


BIT3 


Y14 


BIT4 


Y15 


BIT5 


Y16 


BIT6 


Y17 


BIT7 


Y18 



PA0, FORTH PIXEL 

PA0, THIRD PIXEL 

PA0, SECOND PIXEL 

PA0, FIRST PIXEL 



PA3 



PA2 



PA1 



PA0 



1 



1 



1 



1 



1 



1 



1 



1 



BORDER REGISTER 

BLUE LSB 
GREEN LSB 
RED LSB 
BLUE MSB 
GREEN MSB 
RED MSB 



RESERVED 

VERTICAL SCROLL REGISTER 



THE VSC'S MUST BE INITIALIZED TO $0F 

VERTICAL OFFSET 1 REGISTER 



V.OFSET0 RMB 



VERTICAL OFFSET REGISTER 



FF9F 
FF9F 



BIT0 




Y3 


BIT1 




Y4 


BIT2 




Y5 


BIT3 




Y6 


BIT4 




Y7 


BIT5 




Y8 


BIT6 




Y9 


BIT7 




Y10 


* IN 


COCO 


MODE, Y9-Y15 ARE NOT 


SAM 


BITS F0-F6. ALSO IN COCO 


H.OFSET0 


RMB 1 


BIT0 




X0 



EFFECTIVE, AND ARE CONTROLLED BY 
MODE, Y16-Y18 SHOULD BE 1, ALL OTHERS 



HORIZONTAL OFFSET REGISTER 
HORIZONTAL OFFSET ADDRESS 
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0962 
0963 
0964 
0965 
0966 
0967 
0968 
0969 
0970 
0971 
0972 
0973 
0974 
0975 
0976 
0977 
0978 
0979 
0980 
0981 
0982 
0983 
0984 
0985 
0986 
0987 
0988 
0989 
0990 
0991 
0992 
0993 
0994 
0995 
0996 
0997 
0998 
0999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 



FFA0 



FFB0 



FFC0 

FFC0 
FFC1 
FFC2 
FFC3 
FFC4 



HORIZONTAL OFFSET ADDRESS 
HORIZONTAL OFFSET ADDRESS 
HORIZONTAL OFFSET ADDRESS 
HORIZONTAL OFFSET ADDRESS 
HORIZONTAL OFFSET ADDRESS 
HORIZONTAL OFFSET ADDRESS 
HORIZONTAL VIRTUAL ENABLE 
HVEN ENABLES A HORIZONTAL SCREEN WIDTH OF 128 BYTES REGARDLESS OF THE 
HRES BITS AND CRES BITS SELECTED. THIS WILL ALLOW A 'VIRTUAL' SCREEN 
SOMEWHAT LARGER THAN THE DISPLAYED SCREEN. THE USER CAN MOVE THIS 
'WINDOW' (THE DISPLAYED SCREEN) BY MEANS OF THE HORIZONTAL OFFSET 
BITS. IN CHARACTER MODE, THE SCREEN WIDTH IS 128 CHARACTERS REGARDLESS 
OF ATTRIBUTE (OR 64, IF DOUBLE-WIDE IS SELECTED). 



BIT1 


XI 


BIT2 


X2 


BIT3 


X3 


BIT4 


X4 


BIT5 


X5 


BIT6 


X6 


BIT7 


XVEN 



MMUREG 



RMB 16 



MEMORY MANAGEMENT UNIT REGISTERS (6 BITS) 



* RELATIONSHIP BETWEEN DATA IN TASK REGISTER AND GENERATED ADDRESS 

BIT D5 D4 D3 D2 Dl D0 

CORRESPONDING 

MEMORY ADDRESS A18 A17 A16 A15 A14 A13 

* DATA FROM THE MMU IS THEN USED AS THE UPPER 6 ADDRESS LINES (A13-A18) 



FOR MEMORY ACCESS 










ADDRESS 


RANGE 


TR 


A15 


A14 


X0000 - 


X1FFF 











X2000 - 


X3FFF 











X4000 - 


X5FFF 








1 


X6000 - 


X7FFF 








1 


X8000 - 


X9FFF 





1 





XA000 - 


XBFFF 





1 





XC000 - 


XDFFF 





1 


1 


XE000 - 


XFFFF 





1 


1 


X0000 - 


X1FFF 


1 








X2000 - 


X3FFF 


1 








X4000 - 


X5FFF 


1 





1 


X6000 - 


X7FFF 


1 





1 


X8000 - 


X9FFF 


1 


1 





XA000 - 


XBFFF 


1 


1 





XC000 - 


XDFFF 


1 


1 


1 


XE000 - 


XFFFF 


1 


1 


1 



A13 



MMU LOCATION 

FFA0 

FFA1 

FFA2 

FFA3 

FFA4 

FFA5 

FFA6 

FFA7 

FFA8 
FFA9 
FFAA 
FFAB 
FFAC 
FFAD 
FFAE 
FFAF 



PALETREG RMB 16 



COLOR PALETTE REGISTERS (6 BITS) 





DATA BIT 


D5 D4 D3 D2 Dl 




RGB OUTPUT 


Rl Gl Bl R0 G0 




COMP. OUTPUT 


11 10 P3 P2 PI 


FOR COCO COMPATIBILITY, THE 


FOLLOWING SHOULD BE LOADED ON IN 


(RGB VALUES) 


FOR PAL VERSION 


, IGNORE TABLE FOR COMPOSITE 


FFB0 


GREEN 


$12 


FFB1 


YELLOW 


$36 


FFB2 


BLUE 


$09 


FFB3 


RED 


$24 


FFB4 


BUFF 


$3F 


FFB5 


CYAN 


$10 


FFB6 


MAGENTA 


$2D 


FFB7 


ORANGE 


$26 


FFB8 


BLACK 


$00 


FFB9 


GREEN 


$12 


FFBA 


BLACK 


$00 


FFBB 


BUFF 


$3F 


FFBC 


BLACK 


$00 


FFBD 


GREEN 


$12 


FFBE 


BLACK 


$00 


FFBF 


ORANGE 


$26 



D0 



P0 



INITIALIZATION 



SAMREG 



EQU 



V0CLR 


RMB 


1 


V0SET 


RMB 


1 


V1CLR 


RMB 


1 


V1SET 


RMB 


1 


V2CLR 


RMB 


1 



SAM CONTROL REGISTERS 

CLEAR COCO GRAPHICS MODE V0 
SET COCO GRAPHICS MODE V0 
CLEAR COCO GRAPHICS MODE VI 
SET COCO GRAPHICS MODE VI 
CLEAR COCO GRAPHICS MODE V2 
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1036 


FFC5 


V2SET 


RMB 


1 


1037 


FFC6 


F0CLR 


RMB 


1 


1038 


FFC7 


F0SET 


RMB 


1 


1039 


FFC8 


F1CLR 


RMB 


1 


1040 


FFC9 


F1SET 


RMB 


1 


1041 


FFCA 


F2CLR 


RMB 


1 


1042 


FFCB 


F2SET 


RMB 


1 


1043 


FFCC 


F3CLR 


RMB 


1 


1044 


FFCD 


F3SET 


RMB 


1 


1045 


FFCE 


F4CLR 


RMB 


1 


1046 


FFCF 


F4SET 


RMB 


1 


1047 


FFD0 


F5CLR 


RMB 


1 


1048 


FFD1 


F5SET 


RMB 


1 


1049 


FFD2 


F6CLR 


RMB 


1 


1050 


FFD3 


F6SET 


RMB 


1 


1051 


FFD4 




RMB 


4 


1052 


FFD8 


R1CLR 


RMB 


1 


1053 


FFD9 


R1SET 


RMB 


1 


1054 


FFDA 




RMB 


4 


1055 


FFDE 


ROMCLR 


RMB 


1 


1056 


FFDF 


ROMSET 


RMB 


1 


1057 










1058 


FFE0 




RMB 


18 


1059 




* 


INTERRUPT VECTORS 


1060 


FFF2 


SWI3 


RMB 


2 


1061 


FFF4 


SWI2 


RMB 


2 


1062 


FFF6 


FIRQ 


RMB 


2 


1063 


FFF8 


IRQ 


RMB 


2 


1064 


FFFA 


SWI 


RMB 


2 


1065 


FFFC 


NMI 


RMB 


2 


1066 


FFFE 


RESETV 


RMB 


2 



SET COCO GRAPHICS MODE V2 
CLEAR COCO GRAPHICS OFFSET F0 
SET COCO GRAPHICS OFFSET F0 
CLEAR COCO GRAPHICS OFFSET Fl 
SET COCO GRAPHICS OFFSET Fl 
CLEAR COCO GRAPHICS OFFSET F2 
SET COCO GRAPHICS OFFSET F2 
CLEAR COCO GRAPHICS OFFSET F3 
SET COCO GRAPHICS OFFSET F3 
CLEAR COCO GRAPHICS OFFSET F4 
SET COCO GRAPHICS OFFSET F4 
CLEAR COCO GRAPHICS OFFSET F5 
SET COCO GRAPHICS OFFSET F5 
CLEAR COCO GRAPHICS OFFSET F6 
SET COCO GRAPHICS OFFSET F6 
RESERVED 

CLEAR CPU RATE, (0.89 MHz) 
SET CPU RATE, (1.78 MHz) 
RESERVED 
ROM DISABLED 
ROM ENABLED 

RESERVED FOR FUTURE MPU ENHANCEMENTS 
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0002 
0003 



00 E0 
00 32 



DHITOK 
CYEAR 



EQU 
EQU 



$E1 
, 2 . 



HIGHEST 1.1 DISK TOKEN 



FILE ALLOCATION TABLE FORMAT 



0011 




0012 




0013 




0014 




0015 




0016 




0017 




0018 


00 00 


0019 


00 01 


0020 




0021 




0022 


00 06 


0023 




0024 




0025 




0026 




0027 




0028 




0029 




0030 




0031 




0032 




0033 




0034 




0035 




0036 


00 00 


0037 


00 08 


0038 


00 0B 


0039 


00 0C 


0040 


00 0D 


0041 


00 0E 


0042 




0043 




0044 




0045 




0046 




0047 




0048 




0049 




0050 




0051 




0052 




0053 




0054 




0055 




0056 




0057 




0058 




0059 


00 00 


0060 


00 01 


0061 


00 02 


0062 


00 03 


0063 


00 04 


0064 




0065 


00 06 


0066 


00 07 


0067 


00 09 


0068 


00 0B 


0069 


00 0D 


0070 


00 0F 


0071 




0072 


00 12 


0073 


00 13 


0074 


00 15 


0075 




0076 


00 17 


0077 




0078 


00 19 


0079 




0080 




0081 




0082 


00 00 


0083 


00 01 


0084 


00 02 


0085 


00 03 



0091 


00 06 


0092 


00 07 


0093 




0094 




0095 


00 10 


0096 


00 11 



THE FILE ALLOCATION TABLE (FAT) CONTAINS THE STATUS OF THE GRANULES ON A DISKETTE. 
THE FAT CONTAINS 6 CONTROL BYTES FOLLOWED BY 68 DATA BYTES (ONE PER GRANULE). ONLY THE 
FIRST TWO OF THE SIX CONTROL BYTES ARE USED. A VALUE OF $FF IS SAVED IN UNALLOCATED 
GRANULES. IF BITS 6 S 7 OF THE DATA BYTE ARE SET, THE GRANULE IS THE LAST GRANULE 
IN A FILE AND BITS 0-5 ARE THE NUMBER OF USED SECTORS IN THAT GRANULE. IF BITS 6 S 7 
ARE NOT SET, THE DATA BYTE CONTAINS THE NUMBER OF THE NEXT GRANULE IN THE FILE. 



* OFFSETS TO FAT CONTROL 
FAT0 EQU 
FAT1 EQU 1 



;ytes 



FATCON EQU 



2 TO 5 
6 



ACTIVE FILE COUNTER : DISK TO RAM FAT IMAGE DISABLE 

VALID DATA FLAG: 0=DISK DATA VALID, <> = NEW FAT 

DATA - DISK DATA INVALID 

NOT USED 

OFFSET TO START OF FAT DATA (68 BYTES) 



DIRECTORY ENTRY FORMAT 



THE DIRECTORY IS USED TO KEEP TRACK OF HOW MANY FILES ARE STORED ON A DISKETTE 
AND WHERE THE FILE IS STORED ON THE DISK. THE FIRST GRANULE USED BY THE FILE WILL 
ALLOW THE FAT TO TRACK DOWN ALL OF THE GRANULES USED BY THE FILE. IF THE FIRST 
BYTE OF THE DIRECTORY ENTRY IS ZERO, THE FILE HAS BEEN KILLED; 
IF THE FIRST BYTE IS $FF THEN THE DIRECTORY ENTRY HAS NEVER BEEN USED. 



BYTE 



DIRNAM 


EQU 





DIREXT 


EQU 


8 


DIRTYP 


EQU 


11 


DIRASC 


EQU 


12 


DIRGRN 


EQU 


13 


DIRLST 


EQU 


14 


* 




16 TO 31 



DESCRIPTION 

FILE NAME 

FILE EXTENSION 

FILE TYPE 

ASCII FLAG 

FIRST GRANULE IN FILE 

NUMBER OF BYTES IN LAST SECTOR 

UNUSED 



FILE CONTROL BLOCK FORMAT 



THE FILE STRUCTURE OF COLOR TRS DOS IS CONTROLLED BY A FILE CONTROL BLOCK (FCB) 
THE FCB CONTAINS 25 CONTROL BYTES AND A SECTOR LONG (256 BYTES) DATA BUFFER. 
THE CONTROL BYTES CONTROL THE ORDERLY FLOW OF DATA FROM THE COMPUTER'S RAM TO 
THE DISKETTE AND VICE VERSA. THE OPEN COMMAND INITIALIZES THE FCB; THE INPUT, 
OUTPUT, WRITE, PRINT, GET AND PUT COMMANDS TRANSFER DATA THROUGH THE FCB AND 
THE CLOSE COMMAND TURNS OFF THE FCB. 



TABLES OF OFFSETS TO FCB CONTROL BYTES 



***** RANDOM 


FILE 


* 




BYTE 


FCBTYP 


EQU 





FCBDRV 


EQU 


1 


FCBFGR 


EQU 


2 


FCBCGR 


EQU 


3 


FCBSEC 


EQU 


4 
5 
6 


FCBPOS 


EQU 


FCBREC 


EQU 


7 


FCBRLN 


EQU 


9 


FCBBUF 


EQU 


11 


FCBSOF 


EQU 


13 


FCBFLG 


EQU 


15 
16,17 


FCBDIR 


EQU 


18 


FCBLST 


EQU 


19 


FCBGET 


EQU 


21 



FCBPUT EOU 23 



FCBCON EOU 25 



***** SEQUENTIAL FILE 


* 




BYTE 


FCBTYP 


EQU 





FCBDRV 


EQU 


1 


FCBFGR 


EQU 


2 


FCBCGR 


EQU 


3 


FCBSEC 


EQU 


4 


FCBCPT 


EQU 


5 



FCBPOS 


EQU 


6 


FCBREC 


EQU 


7 

9 TO 15 


FCBRLN 


EQU 


16 


FCBCDT 


EQU 


17 



DESCRIPTION 

FILE TYPE: $40=RANDOM/DIRECT, 0=CLOSED 

DRIVE NUMBER 

FIRST GRANULE IN FILE 

CURRENT GRANULE BEING USED 

CURRENT SECTOR BEING USED (1-9) 

UNUSED 

CURRENT PRINT POSITION - ALWAYS ZERO IN RANDOM FILES 

CURRENT RECORD NUMBER 

RANDOM FILE RECORD LENGTH 

POINTER TO START OF THIS FILE'S RANDOM ACCESS BUFFER 

SECTOR OFFSET TO CURRENT POSITION IN RECORD 

GET/PUT FLAG: 0=PUT, 1=PUT 

NOT USED 

DIRECTORY ENTRY NUMBER (0-71) 

NUMBER OF BYTES IN LAST SECTOR OF FILE 

'GET' RECORD COUNTER: HOW MANY CHARACTERS HAVE BEEN 

PULLED OUT OF THE CURRENT RECORD 

'PUT' RECORD COUNTER: POINTER TO WHERE IN THE RECORD THE NEXT 

BYTE WILL BE 'PUT' 

OFFSET TO START OF FCB DATA BUFFER (256 BYTES) 



DESCRIPTION 

FILE TYPE: $10=INPUT, $20=OUTPUT, 0=CLOSED 

DRIVE NUMBER 

FIRST GRANULE IN FILE 

CURRENT GRANULE BEING USED 

CURRENT SECTOR BEING USED (1-9) 

INPUT FILE: CHARACTER POINTER - POINTS TO NEXT CHARACTER IN 

FILE TO BE PROCESSED. 

OUTPUT FILE: FULL SECTOR FLAG - IF IT IS 1 WHEN THE FILE IS 

CLOSED IT MEANS 256 BYTES OF THE LAST SECTOR HAVE BEEN USED. 

CURRENT PRINT POSITION 

CURRENT RECORD NUMBER: HOW MANY WHOLE SECTORS HAVE BEEN 

INPUT OR OUTPUT TO A FILE. 

UNUSED 

CACHE FLAG: 00=CACHE EMPTY, $FF=CACHE FULL 

CACHE DATA BYTE 



DISK BASIC UNRAVELLED II 



APPENDIX B 
DISASSEMBLY OF DISK BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/26/1999 WALTER K ZYDHEK 



0097 




00 


12 




FCBDIR 


EQU 


18 




0098 




00 


13 




FCBLST 


EQU 


19 




0099 










* 




21,22 




0100 




00 


17 




FCBDFL 


EQU 


23 




0101 




00 


18 




FCBLFT 


EQU 


24 




0102 










* 








0103 




00 


19 




FCBCON 


EQU 


25 




0104 


















0105 












ORG 


$C000 




0106 


















0107 


C000 


44 


4B 




DOSBAS 


FCC 


•DK' 




0108 


C002 


20 


08 




LC002 


BRA 


LC00C 




0109 


















0110 


C004 


D7 


5F 




DCNVEC 


FDB 


DSKCON 




0111 


C006 


00 


EA 




DSKVAR 


FDB 


DCOPC 




0112 


C008 


DF 


4C 




DSINIT 


FDB 


DOSINI 




0113 


C00A 


DF 


00 




DOSVEC 


FDB 


DOSCOM 




0114 


















0115 










**** ZERO OUT 


THE RAM USED BY DISK BASIC 




0116 


C00C 


8E 


06 


00 


LC00C 


LDX 


#DBUF0 




0117 


C00F 


6F 


80 




LC00F 


CLR 


,x+ 




0118 


C011 


8C 


09 


89 




CMPX 


#DFLBUF 




0119 


C014 


26 


F9 






BNE 


LC00F 




0120 


C016 


8E 


CI 


09 




LDX 


#LC109 




0121 


C019 


CE 


01 


34 




LDU 


#COMVEC+20 




0122 


C01C 


C6 


0A 






LDB 


#10 




0123 


C01E 


BD 


A5 


9A 




JSR 


LA59A 




0124 


C021 


CC 


B2 


77 




LDD 


#LB277 




0125 


C024 


ED 


43 






STD 


$03, U 




0126 


C026 


ED 


48 






STD 


$08, U 




0127 


C028 


6F 


C4 






CLR 


,u 




0128 


C02A 


6F 


45 






CLR 


$05, U 




0129 


C02C 


CC 


CF 


0A 




LDD 


#DXCVEC 




0130 


C02F 


FD 


01 


2D 




STD 


COMVEC+13 




0131 


C032 


CC 


CF 


32 




LDD 


#DXIVEC 




0132 


C035 


FD 


01 


32 




STD 


COMVEC+18 




0133 










**** MOVE THE 


NEW RAM VECTORS FROM ROM TO 


RAM 


0134 


C038 


CE 


01 


5E 




LDU 


#RVEC0 




0135 


C03B 


86 


7E 




LC03B 


LDA 


#$7E 




0136 


C03D 


B7 


01 


A0 




STA 


RVEC22 




0137 


C040 


A7 


C0 






STA 


,u+ 




0138 


C042 


EC 


81 






LDD 


,x++ 




0139 


C044 


ED 


CI 






STD 


,u++ 




0140 


C046 


8C 


CI 


39 




CMPX 


#LC139 




0141 


C049 


26 


F0 






BNE 


LC03B 




0142 


C04B 


8E 


C2 


B2 




LDX 


#DVEC22 




0143 


C04E 


BF 


01 


Al 




STX 


RVEC22+1 




0144 


C051 


8E 


C8 


B0 




LDX 


#DVEC20 




0145 


C054 


BF 


01 


9B 




STX 


RVEC20+1 




0146 










**** INITIALIZE DISK BASIC'S USR VECTORS 




0147 


C057 


8E 


09 


5F 




LDX 


#DUSRVC 




0148 


C05A 


9F 


B0 






STX 


USRADR 




0149 


C05C 


CE 


B4 


4A 




LDU 


#LB44A 




0150 


C05F 


C6 


0A 






LDB 


#$0A 




0151 


C061 


EF 


81 




LC061 


STU 


,X++ 




0152 


C063 


5A 








DECB 






0153 


C064 


26 


FB 






BNE 


LC061 




0154 


C066 


8E 


D8 


Al 




LDX 


#DNMISV 




0155 


C069 


BF 


01 


0A 




STX 


NMIVEC+1 




0156 


C06C 


86 


7E 






LDA 


#$7E 




0157 


C06E 


B7 


01 


09 




STA 


NMIVEC 




0158 


C071 


8E 


D8 


AF 




LDX 


#DIRQSV 




0159 


C074 


BF 


01 


0D 




STX 


IRQVEC+1 




0160 


C077 


86 


13 






LDA 


#$13 




0161 


C079 


B7 


09 


7A 




STA 


WFATVL 




0162 


C07C 


7F 


08 


00 




CLR 


FATBL0 




0163 


C07F 


7F 


08 


4A 




CLR 


FATBL1 




0164 


C082 


7F 


08 


94 




CLR 


FATBL2 




0165 


C085 


7F 


08 


DE 




CLR 


FATBL3 




0166 


C088 


8E 


09 


89 




LDX 


#DFLBUF 




0167 


C08B 


BF 


09 


48 




STX 


RNBFAD 




0168 










* 








0169 


C08E 


30 


89 


01 00 




LEAX 


$0100, X 




0170 


C092 


BF 


09 


4A 




STX 


FCBADR 




0171 


C095 


30 


01 






LEAX 


$01, X 




0172 


C097 


BF 


09 


28 




STX 


FCBV1 




0173 


C09A 


6F 


00 






CLR 


FCBTYP.X 




0174 


C09C 


30 


89 


01 19 




LEAX 


FCBLEN.X 




0175 


C0A0 


BF 


09 


2A 




STX 


FCBV1+2 




0176 


C0A3 


6F 


00 






CLR 


FCBTYP.X 




0177 


C0A5 


30 


89 


01 19 




LEAX 


FCBLEN.X 




0178 










* 








0179 


C0A9 


BF 


09 


2C 




STX 


FCBV1+4 




0180 


C0AC 


6F 


00 






CLR 


FCBTYP.X 




0181 


C0AE 


86 


02 






LDA 


#$02 




0182 


C0B0 


B7 


09 


5B 




STA 


FCBACT 




0183 


C0B3 


30 


89 


01 19 




LEAX 


FCBLEN.X 




0184 


C0B7 


IF 


10 






TFR 


X.D 




0185 


C0B9 


5D 








TSTB 






0186 


C0BA 


27 


01 






BEQ 


LC0BD 




0187 


C0BC 


4C 








INCA 






0188 


C0BD 


85 


01 




LC0BD 


BITA 


#$01 




0189 


C0BF 


27 


01 






BEQ 


LC0C2 




0190 


C0C1 


4C 








INCA 






0191 


C0C2 


IF 


89 




LC0C2 


TFR 


A.B 




0192 


C0C4 


CB 


18 






ADDB 


#$18 





DIRECTORY ENTRY NUMBER (0-71) 

NUMBER OF BYTES IN LAST SECTOR OF FILE 

UNUSED 

INPUT FILE ONLY: DATA LEFT FLAG: 0=DATA LEFT, $FF=NO DATA (EMPTY) 

NUMBER OF CHARACTERS LEFT IN BUFFER (INPUT FILE) 

NUMBER OF CHARS STORED IN BUFFER (OUTPUT FILE) 

OFFSET TO FCB DATA BUFFER (256 BYTES) 



DSKCON POINTER 
ADDRESS OF DSKCON VARIABLES 
DISK INITIALIZATION VECTOR 
DOS COMMAND VECTOR 



POINT X TO START OF DISK RAM 

CLEAR A BYTE 

END OF DISK'S RAM? 

NO - KEEP CLEARING 

POINT X TO ROM IMAGE OF COMMAND INTERPRETATION TABLE 

POINT U TO RAM ADDRESS OF SAME 

10 BYTES PER TABLE 

MOVE (B) BYTES FROM (X) TO (U) 

SYNTAX ERROR ADDRESS 

* SET JUMP TABLE ADDRESSES OF THE USER COMMAND 

* INTERPRETATION TABLE TO POINT TO SYNTAX ERROR 
CLEAR BYTE OF USER TABLE (DOESN'T EXIST FLAG) 
SET NUMBER OF SECONDARY USER TOKENS TO ZERO 

* SAVE NEW 

* POINTERS TO EXBAS 

* COMMAND AND SECONDARY 

* COMMAND INTERPRETATION ROUTINES 

POINT U TO 1ST RAM VECTOR 

OP CODE OF JMP INSTRUCTION 

SET 1ST BYTE OF 'GET'7'PUT' RAM VECTOR TO 'JMP' 

SET 1ST BYTE OF RAM VECTOR TO 'JMP' 

GET RAM VECTOR FROM ROM 

STORE IT IN RAM 

COMPARE TO END OF ROM VALUES 

BRANCH IF NOT ALL VECTORS MOVED 

GET ROM VALUE OF 'GET'7'PUT' RAM VECTOR 

SAVE IT IN RAM 

GET DISK COMMAND INTERPRETATION LOOP RAM VECTOR 

SAVE IN RAM VECTOR TABLE 

POINT X TO START OF DISK BASIC USR VECTORS 

SAVE START ADDRESS IN USRADR 

POINT U TO ADDRESS OF 'FUNCTION CALL' ERROR 

10 USER VECTORS TO INITIALIZE 

SET USR VECTOR TO ' FC ' ERROR 

DECREMENT USR VECTOR COUNTER 

BRANCH IN NOT DONE WITH ALL 10 VECTORS 

GET ADDRESS OF NMI SERVICING ROUTINE 

SAVE IT IN NMI VECTOR 

OP CODE OF JMP 

MAKE THE NMI VECTOR A JMP 

GET ADDRESS OF DISK BASIC IRO SERVICING ROUTINE 

SAVE IT IN IRQVEC 

= INITIALIZE WRITE FAT 

= TO DISK TRIGGER VALUE 

* 

* INITIALIZE THE ACTIVE FILE COUNTER OF 

* EACH FAT TO ZERO. THIS WILL CAUSE THE FATS 

* TO THINK THERE ARE NO ACTIVE FILES 
= GET THE STARTING ADDRESS OF THE 

= RANDOM FILE BUFFER FREE AREA AND DAVE IT AS THE 
= START ADDRESS OF FREE RAM FOR RANDOM FILE BUFFERS 
SAVE 256 BYTES FOR RANDOM FILE BUFFERS INITIALLY 
SAVE START ADDRESS OF FCBS 

* ADD ONE AND SAVE THE STARTING 

* ADDRESS OF FCB1 

CLEAR THE FIRST BYTE OF FCB 1 (CLOSE FCB) 
POINT X TO FCB 2 

SAVE ITS STARTING ADDRESS IN FCB VECTOR TABLE 
CLEAR THE FIRST BYTE OF FCB 2 (CLOSE FCB) 

* POINT X TO SYSTEM FCB - THIS FCB WILL ONLY 

* BE USED TO COPY, LOAD, SAVE, MERGE, ETC 
SAVE ITS ADDRESS IN THE FCB VECTOR TABLE 
CLEAR THE FIRST BYTE OF SYSTEM FCB (CLOSE FCB) 

* SET THE NUMBER OF ACTIVE RESERVED 

* FILE BUFFERS TO 2 (1,2) 

POINT X TO ONE PAST THE END OF SYSTEM FCB 

SAVE THE ADDRESS IN ACCD 

ON AN EVEN 256 BYTE BOUNDARY? 

YES 

NO - ADD 256 TO ADDRESS 

* CHECK TO SEE IF ACCD IS ON AN EVEN 

* 512 BYTE (ONE GRAPHIC PAGE) BOUNDARY - ADD 

* 256 (INCA) TO IT IF NOT 
COPY ACCA TO ACCB 

SAVE ENOUGH ROOM FOR 4 GRAPHICS PAGES (PCLEAR 4) 



DISK BASIC UNRAVELLED II 
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REVISED:12/26/1999 WALTER K ZYDHEK 



0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 



C0C6 

C0C8 
C0CB 
C0CD 
C0CF 
C0D1 
C0D5 
C0D7 
C0D9 
C0DC 
C0DF 
C0E2 
C0E4 



D7 19 
BD 96 EC 

96 BA 
8B 06 

97 B7 

AD 9F C0 
8D 19 
1C AF 
8E CI 38 
BD B9 9C 
8E C0 E7 
9F 72 
7E A0 E2 



C0E7 12 

C0E8 8D 06 

C0EA BD D2 D2 

C0ED 7E 80 C0 

C0F0 7F 09 82 

C0F3 7F 09 85 

C0F6 7F 09 86 

C0F9 7F FF 40 

C0FC 86 D0 

C0FE B7 FF 48 

C101 IE 88 

C103 IE 88 

C105 B6 FF 48 

C108 39 



C109 14 

C10A CI 92 

C10C C2 38 

C10E 06 

C10F C2 19 

[111 C2 4E 



C113 C4 4B C8 88 C8 93 LC113 

C119 CC 1C C5 BC C8 48 

C11F C8 4B CA E9 CA F9 

C125 8E 90 CD 35 C8 A9 

C12B C6 E4 CA E4 C9 0C 

C131 CE D2 C6 E4 

C135 C2 65 CA 3E 



STB 


TXTTAB 


JSR 


L96EC 


LDA 


BEGGRP 


ADDA 


#$06 


STA 


ENDGRP 


JSR 


[DSINIT] 


BSR 


LC0F0 


ANDCC#$AF 


LDX 


#LC139-1 


JSR 


STRINOUT 


LDX 


#DKWMST 


STX 


RSTVEC 


JMP 


LA0E2 


NOP 




BSR 


LC0F0 


JSR 


LD2D2 


JMP 


XBWMST 


CLR 


NMIFLG 


CLR 


RDYTMR 


CLR 


DRGRAM 


CLR 


DSKREG 


LDA 


#$D0 


STA 


FDCREG 


EXG 


A, A 


EXG 


A, A 


LDA 


FDCREG 


RTS 




«IC 


COMMAND INTERP TABLES 


FCB 


20 


FDB 


LC192 


FDB 


LC238 


FCB 


06 


FDB 


LC219 


FDB 


LC24E 


JKS FOR DISK BASIC 


FDB 


DVEC0,DVEC1,DVEC2 


FDB 


DVEC3.DVEC4.DVEC5 


FDB 


DVEC6,DVEC7,DVEC8 


FDB 


XVEC9.DVEC10.DVEC11 


FDB 


DVEC12,DVEC13,DVEC14 


FDB 


DVEC15.DVEC12 


FDB 


DVEC17.DVEC18 



DISK BASIC COPYRIGHT MESSAGE 



C139 44 49 53 4B 20 45 LC139 

C13F 58 54 45 4E 44 45 

C145 44 20 43 4F 4C 4F 

C14B 52 20 42 41 53 49 

C151 43 20 31 2E 31 

C156 0D 

C157 43 4F 50 59 52 49 

C15D 47 48 54 20 28 43 

C163 29 20 31 39 38 

C168 32 

C169 20 42 59 20 54 41 

C16F 4E 44 59 

C172 0D 

C173 55 4E 44 45 52 20 

C179 4C 49 43 45 4E 53 

C17F 45 20 46 52 4F 4D 

C185 20 4D 49 43 52 4F 

C18B 53 4F 46 54 

C18F 0D 0D 00 



•DISK EXTENDED COLOR BASIC 1.1' 



FCB 


CR 


FDB 


•COPYRIGHT (C) 


FCB 


CYEAR 


FCC 


' BY TANDY' 


FCB 


CR 


FCC 


•UNDER LICENSE 



CENSE FROM MICROSOFT' 



FDB CR.CR.0 



DISK BASIC COMMAND DICTIONARY TABLE 



C192 

C195 
C19A 
C19F 
C1A4 
C1A8 
C1AC 
C1B0 
C1B5 
C1BB 
C1BF 
C1C3 
C1C8 
C1CE 
C1D4 
C1DA 
C1E0 
C1E4 
C1E9 
C1EE 



44 49 
44 52 
46 49 
46 49 
4B 49 
4C 4F 
4C 53 
4D 45 
52 45 

52 53 

53 41 
57 52 
56 45 
55 4E 
44 53 

42 41 

43 4F 

44 53 
44 53 
44 4F 



D2 

49 56 C5 

45 4C C4 

4C 45 D3 

4C CC 

41 C4 

45 D4 

52 47 C5 

4E 41 4D C5 

45 D4 

56 C5 

49 54 C5 

52 49 46 D9 
4C 4F 41 C4 
4B 49 4E C9 
43 4B 55 D0 

50 D9 

4B 49 A4 
4B 4F A4 
D3 



FCC 


•DI' ,$80+'R' 


FCC 


'DRIV ,$80+'E' 


FCC 


•FIEL' ,$80+'D' 


FCC 


•FILE' ,$80+'S' 


FCC 


•KIL' ,$80+'L' 


FCC 


'LOA' ,$80+'D' 


FCC 


'LSE' ,$80+'T' 


FCC 


'MERG' ,$80+'E' 


FCC 


'RENAM' ,$80+' E 


FCC 


•RSE' ,$80+'T' 


FCC 


'SAV ,$80+'E' 


FCC 


'WRIT' ,$80+'E' 


FCC 


'VERIF' ,$80+'Y 


FCC 


'UNLOA' ,$80+'D 


FCC 


'DSKIN' ,$80+'I 


FCC 


•BACKLT ,$80+'P 


FCC 


'COP' ,$80+'Y' 


FCC 


•DSKI' ,$80+'$' 


FCC 


'DSKO' ,$80+'$' 


FCC 


'DO' ,$80+' S' 



SAVE NEW START OF BASIC ADDRESS 

INITIALIZE EXBAS VARIABLES S DO A NEW 

GET THE START OF CURRENT GRAPHICS PAGE 

ADD 1.5K (6 X 256 = ONE GRAPHICS PAGE) 

SAVE NEW END OF GRAPHICS PAGE 

INITIALIZE SWI2.3 JUMP ADDRESSES 

GO INITIALIZE THE FLOPPY DISK CONTROLLER 

TURN ON IRO AND FIRQ 

POINT X TO DISK BASIC COPYRIGHT MESSAGE 

PRINT COPYRIGHT MESSAGE TO SCREEN 

GET DISK BASIC WARM START ADDRESS 

SAVE IT IN RESET VECTOR 

JUMP BACK TO BASIC 

WARM START INDICATOR 

INITIALIZE THE FLOPPY DISK CONTROLLER 

CLOSE FILES AND DO MORE INITIALIZATION 

JUMP TO EXBAS' WARM START 

RESET NMI FLAG 

RESET DRIVE NOT READY TIMER 

RESET RAM IMAGE OF DSKREG (MOTORS OFF) 

RESET DISK CONTROL REGISTER 

FORCE INTERRUPT COMMAND OF 1793 

SEND IT TO 1793 

* DELAY 

* DELAY SOME MORE 

GET 1793 STATUS (CLEAR REGISTER) 



20 DISK BASIC 1.1 COMMANDS 
DISK BASIC'S COMMAND DICTIONARY 
COMMAND JUMP TABLE 
6 DISK BASIC SECONDARY FUNCTIONS 
SECONDARY FUNCTION TABLE 
SECONDARY FUNCTION JUMP TABLE 



C1F1 CC A9 
C1F3 CE C5 



DISK BASIC COMMAND JUMP TABLE 



FDB DIR 
FDB DRIVE 



TOKEN # 
CE 

CF 
D0 
Dl 
D2 
D3 
D4 
D5 
D6 
D7 
D8 
D9 
DA 
DB 
DC 
DD 
DE 
DF 
E0 
El 



COMMAND 7 TOKEN # 
DIR 7 CE 
DRIVE 7 CF 



DISK BASIC UNRAVELLED II 
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0289 


C1F5 


D0 


BC 




0290 


C1F7 


Dl 


5C 




0291 


C1F9 


C6 


EF 




0292 


C1FB 


CA 


48 




0293 


C1FD 


Dl 


02 




0294 


C1FF 


CA 


39 




0295 


C201 


D0 


IB 




0296 


C203 


Dl 


01 




0297 


C205 


C9 


E0 




0298 


C207 


D0 


66 




0299 


C209 


D7 


4E 




0300 


C20B 


D2 


33 




0301 


C20D 


D5 


99 




0302 


C20F 


D2 


62 




0303 


C211 


D3 


B9 




0304 


C213 


D4 


ED 




0305 


C215 


D5 


62 




0306 


C217 


D6 


EC 




0307 










0308 










0309 










0310 










0311 


C219 


43 


56 


CE 


0312 


C21C 


46 


52 


45 C5 


0313 


C220 


4C 


4F 


C3 


0314 


C223 


4C 


4F 


C6 


0315 


C226 


4D 


4B 


4E A4 


0316 


C22A 


41 


[13 




0317 










0318 










0319 










0320 










0321 


C22C 


CD 


F4 




0322 


C22E 


CE 


9C 




0323 


C230 


CE 


10 




0324 


C232 


CE 


37 




0325 


C234 


CE 


02 




0326 


C236 


B2 


77 




0327 










0328 










0329 


C238 


81 


El 




0330 


C23A 


22 


08 




0331 


C23C 


8E 


CI 


Fl 


0332 


C23F 


80 


CE 




0333 


C241 


7E 


AD 


D4 


0334 


C244 


81 


El 




0335 


C246 


10 


23 


F0 2D 


0336 


C24A 


6E 


9F 


01 41 


0337 










0338 


C24E 


CI 


4E 




0339 


C250 


23 


04 




0340 


C252 


6E 


9F 


01 46 


0341 


C256 


C0 


44 




0342 


C258 


34 


04 




0343 


C25A 


BD 


B2 


62 


0344 


C25D 


35 


04 




0345 


C25F 


8E 


C2 


2C 


0346 


C262 


7E 


B2 


CE 


0347 










0348 










0349 


C265 


35 


20 




0350 


C267 


BD 


AD 


33 


0351 


C26A 


BD 


D2 


D2 


0352 


C26D 


34 


24 




0353 


C26F 


BD 


CA 


E9 


0354 


C272 


35 


04 




0355 


C274 


CI 


36 




0356 


C276 


10 


25 


C6 76 


0357 


C27A 


32 


62 




0358 


C27C 


BD 


A7 


E9 


0359 


C27F 


BD 


A9 


74 


0360 


C282 


0F 


6F 




0361 


C284 


BD 


B9 


5C 


0362 


C287 


BD 


B9 


AF 


0363 


C28A 


8E 


C2 


5A 


0364 


C28D 


7E 


AC 


60 


0365 










0366 










0367 


C290 


42 


52 




0368 


C292 


44 


46 




0369 


C294 


4F 


42 




0370 


C296 


57 


50 




0371 


C298 


46 


4E 




0372 


C29A 


46 


53 




0373 


C29C 


41 


45 




0374 


C29E 


46 


4F 




0375 


C2A0 


53 


45 




0376 


C2A2 


56 


46 




0377 


C2A4 


45 


52 




0378 










0379 










0380 


C2A6 


42 


41 


53 


0381 


C2A9 


20 


20 


20 


0382 


C2AC 


44 


41 


54 


0383 


C2AF 


42 


49 


4E 


0384 











FDB 


FIELD 


FDB 


FILES 


FDB 


KILL 


FDB 


LOAD 


FDB 


LSET 


FDB 


MERGE 


FDB 


RENAME 


FDB 


RSET 


FDB 


SAVE 


FDB 


WRITE 


FDB 


VERIFY 


FDB 


UNLOAD 


FDB 


DSKINI 


FDB 


BACKUP 


FDB 


COPY 


FDB 


DSKI 


FDB 


DSKO 


FDB 


DOS 



SECONDARY FUNCTION DICTIONARY TABLE 



FCC 


•CV ,$80+'N' 


FCC 


'FRE' ,$80+' E 


FCC 


'LO' ,$80+'C 


FCC 


'LO' ,$80+'F' 


FCC 


'MKN' ,$80+'$ 


FCC 


•A' ,$80+'S' 



DISK BASIC SECONDARY FUNCTION JUMP TABLE 



LC22C 


FDB 


CVN 




FDB 


FREE 




FDB 


LOC 




FDB 


LOF 




FDB 


MKN$ 




FDB 


AS 


*DISK BASIC COMMAND INTERP1 


LC238 


CMPA 


#DHITOK 




BHI 


LC244 




LDX 


#LC1F1 




SUBA 


#$CE 




JMP 


LADD4 


LC244 


CMPA 


#DHITOK 




LBLS 


LB277 




JMP 


[COMVEC+33] 


*DISK BASIC SECONDARY COMM/ 


LC24E 


CMPB 


#($A7-$80)*2 




BLS 


LC256 




JMP 


[,C0MVEC+38] 


LC256 


SUBB 


#($A2-$80)*2 




PSHS 


B 




JSR 


LB262 




PULS 


B 




LDX 


#LC22C 




JMP 


LB2CE 


* ERROR DRIVER RAM VECTOR 


DVEC17 


PULS 


Y 




JSR 


LAD33 




JSR 


LD2D2 




PSHS 


Y,B 




JSR 


DVEC7 




PULS 


B 




CMPB 


#2*27 




LBCS 


XVEC17 




LEAS 


$02, S 




JSR 


LA7E9 




JSR 


LA974 




CLR 


DEVNUM 




JSR 


LB95C 




JSR 


LB9AF 




LDX 


#LC290-2*27 




JMP 


LAC60 


* DISK 


BASIC 


ERROR MESSAGE! 


LC290 


FCC 


•BR' 




FCC 


'DF' 




FCC 


■OB' 




FCC 


'WP' 




FCC 


'FN 




FCC 


'FS' 




FCC 


'AE 




FCC 


'FO' 




FCC 


'SE' 




FCC 


'VF' 




FCC 


'ER 


* DISK 


FILE EXTENSIONS 


BASEXT 


FCC 


•BAS' 


DEFEXT 


FCC 




DATEXT 


FCC 


'DAT' 


BINEXT 


FCC 


'BIN' 



NTERPRETATION HANDLER 



FIELD 7 D0 
FILES 7 Dl 
KILL 7 D2 
LOAD 7 D3 
LSET 7 D4 
MERGE 7 D5 
RENAME 7 D6 
RSET 7 D7 
SAVE 7 D8 
WRITE 7 D9 
VERIFY 7 DA 
UNLOAD 7 DB 
DSKINI 7DC 
BACKUP 7 DD 
COPY 7 DE 
DSKI$ 7 DF 
DSKO$ 7 E0 
DOS 7 El 



TOKEN 

A2 

A3 

A4 
A5 
A6 
A7 



FUNCTION 7 TOKEN # 

CVN 7 A2 

FREE 7 A3 

LOC 7 A4 

LOF 7 A5 

MKN$ 7 A6 

AS 7 A7 



*COMPARE TO HIGHEST DISK BASIC TOKEN 
*AND BRANCH IF HIGHER 

POINT X TO DISK BASIC COMMAND JUMP TABLE 
SUBTRACT OUT LOWEST DISK BASIC COMMAND TOKEN 
JUMP TO BASIC'S COMMAND HANDLER 
COMPARE TO HIGHEST DISK BASIC TOKEN 
•SYNTAX' ERROR IF < DISK BASIC COMMAND TOKEN 
PROCESS A USER COMMAND TOKEN 
HANDLER 

♦COMPARE MODIFIED SECONDARY TOKEN TO 

♦HIGHEST DISK BASIC TOKEN S BRANCH IF HIGHER 

JUMP TO USER SECONDARY COMMAND HANDLER 

♦SUBTRACT OUT THE SMALLEST SECONDARY 

♦DISK TOKEN & SAVE MODIFIED TOKEN ON THE STACK 

SYNTAX CHECK FOR '(' AND EVALUATE EXPRESSION 

RESTORE MODIFIED TOKEN 

POINT X TO SECONDARY COMMAND JUMP TABLE 

JUMP TO BASIC'S SECONDARY COMMAND HANDLER 



PUT THE RETURN ADDRESS INTO Y 

RESET THE CONT FLAG, ETC 

INITIALIZE SOME DISK VARIABLES AND CLOSE FILES 

PUT RETURN ADDRESS AND ERROR NUMBER ON THE STACK 

CLOSE ALL FILES 

GET THE ERROR NUMBER BACK 

COMPARE TO THE LOWEST DISK ERROR NUMBER 

BRANCH TO EXBAS ERROR HANDLER IF NOT DISK ERROR NUMBER 

PURGE RETURN ADDRESS OFF THE STACK 

TURN OFF THE CASSETTE MOTOR 

DISABLE THE ANALOG MULTIPLEXER 

SET DEVICE NUMBER TO THE SCREEN 

SEND A CR TO THE SCREEN 

SEND A '?' TO THE SCREEN 

POINT X TO DISK BASIC'S ERROR TABLE 

JUMP TO BASIC'S ERROR HANDLER 



27 BAD RECORD 

28 DISK FULL 

29 OUT OF BUFFER SPACE 

30 WRITE PROTECTED 

31 BAD FILE NAME 

32 BAD FILE STRUCTURE 

33 FILE ALREADY EXISTS 

34 FIELD OVERFLOW 

35 SET TO NON-FIELDED STRING 

36 VERIFICATION ERROR 

37 WRITE OR INPUT PAST END OF RECORD 



BASIC FILE EXTENSION 

BLANK (DEFAULT) FILE EXTENSION 

DATA FILE EXTENSION 

BINARY FILE EXTENSION 



DISK BASIC UNRAVELLED II 



APPENDIX B 
DISASSEMBLY OF DISK BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/26/1999 WALTER K ZYDHEK 



CLS RAM VECTOR 



0386 


C2B2 


34 


11 




0387 


C2B4 


AE 


63 




0388 


C2B6 


8C 


97 


5F 


0389 


C2B9 


26 


04 




0390 


C2BB 


81 


23 




0391 


C2BD 


27 


02 




0392 


C2BF 


35 


91 




0393 










0394 










0395 


C2C1 


32 


65 




0396 


C2C3 


BD 


C8 


2E 


0397 


C2C6 


9F 


Fl 




0398 


C2C8 


6F 


88 


15 


0399 


C2CB 


6F 


88 


16 


0400 


C2CE 


6F 


88 


17 


0401 


C2D1 


6F 


88 


18 


0402 


C2D4 


6F 


06 




0403 


C2D6 


A6 


01 




0404 


C2D8 


97 


EB 




0405 


C2DA 


9D 


A5 




0406 


C2DC 


27 


0C 




0407 


C2DE 


BD 


B2 


6D 


0408 


C2E1 


BD 


B7 


3D 


0409 


C2E4 


IF 


10 




0410 


C2E6 


9E 


Fl 




0411 


C2E8 


ED 


07 




0412 


C2EA 


EC 


07 




0413 


C2EC 


27 


ID 




0414 


C2EE 


BD 


C6 


85 


0415 


C2F1 


EC 


09 




0416 


C2F3 


AE 


0B 




0417 


C2F5 


34 


16 




0418 










0419 










0420 


C2F7 


30 


5E 




0421 


C2F9 


BD 


9F 


B5 


0422 


C2FC 


34 


60 




0423 


C2FE 


A6 


E0 




0424 


C300 


26 


09 




0425 


C302 


35 


10 




0426 


C304 


35 


04 




0427 










0428 










0429 










0430 


C306 


8C 


02 


64 


0431 


C309 


25 


05 




0432 


C30B 


C6 


36 




0433 


C30D 


7E 


AC 


46 


0434 


C310 


DE 


Fl 




0435 


C312 


AC 


4D 




0436 


C314 


10 


27 


00 


0437 


C318 


34 


14 




0438 


C31A 


A6 


4F 




0439 


C31C 


27 


06 




0440 


C31E 


6F 


4F 




0441 


C320 


C6 


03 




0442 


C322 


8D 


33 




0443 










0444 


C324 


EC 


61 




0445 


C326 


BD 


C7 


84 


0446 


C329 


34 


04 




0447 


C32B 


BD 


C7 


79 


0448 


C32E 


50 






0449 


C32F 


EB 


63 




0450 










0451 










0452 


C331 


5C 






0453 


C332 


E7 


44 




0454 


C334 


E6 


42 




0455 


C336 


BD 


C7 


55 


0456 


C339 


33 


06 




0457 


C33B 


A6 


E4 




0458 


C33D 


4C 






0459 


C33E 


30 


C4 




0460 


C340 


3A 






0461 


C341 


4A 






0462 


C342 


27 


37 




0463 


C344 


E7 


E4 




0464 


C346 


E6 


84 




0465 


C348 


CI 


C0 




0466 


C34A 


25 


F2 




0467 










0468 










0469 


C34C 


E6 


E4 




0470 


C34E 


0D 


D8 




0471 


C350 


26 


14 




0472 


C352 


C6 


2E 




0473 


C354 


7E 


AC 


46 


0474 


C357 


30 


C8 


19 


0475 










0476 










0477 


C35A 


D7 


EA 




0478 


C35C 


9F 


EE 




0479 


C35E 


30 


C4 




0480 


C360 


BD 


C7 


63 



DVEC22 


PSHS 


X,CC 




LDX 


$03, S 




CMPX 


#L975F 




BNE 


LC2BF 




CMPA 


#'#' 




BEQ 


LC2C1 


LC2BF 


PULS 


CC,X,PC 


* GET7PUT TO , 


^ DIRECT/RANDOM F 


LC2C1 


LEAS 


$05, S 




JSR 


LC82E 




STX 


FCBTMP 




CLR 


FCBGET.X 




CLR 


FCBGET+l.X 




CLR 


FCBPUT.X 




CLR 


FCBPUT+l.X 




CLR 


FCBPOS.X 




LDA 


FCBDRV.X 




STA 


DCDRV 




JSR 


GETCCH 




BEQ 


LC2EA 




JSR 


SYNCOMMA 




JSR 


LB73D 




TFR 


X,D 


LC2E6 


LDX 


FCBTMP 




STD 


FCBREC.X 


LC2EA 


LDD 


FCBREC.X 




BEQ 


LC30B 




JSR 


LC685 




LDD 


FCBRLN.X 




LDX 


FCBBUF.X 


, 


PSHS 


X,B,A 


* 


LEAX 


$-2,U 




JSR 


L9FB5 




PSHS 


U,Y 




LDA 


,s+ 




BNE 


LC30B 




PULS 


X 




PULS 


B 



SAVE X REG AND STATUS 

LOAD X WITH CALLING ADDRESS 

COMING FROM EXBAS' GET7PUT? 

NO 

NUMBER SIGN (GET#, PUT*)? 

BRANCH IF GET OR PUT TO RANDOM FILE 

RESTORE X REG, STATUS AND RETURN 



LE 



LC306 


CMPX 


#(TRKMAX-1) 




BLO 


LC310 


LC30B 


LDB 


#2*27 




JMP 


LAC46 


LC310 


LDU 


FCBTMP 




CMPX 


FCBSOF.U 




LBEQ 


LC3CF 




PSHS 


X,B 




LDA 


FCBFLG.U 




BEQ 


LC324 




CLR 


FCBFLG.U 




LDB 


#$03 




BSR 


LC357 


* CONVERT THE 


SECTOR OFFSET TO 


LC324 


LDD 


$01, S 




JSR 


LC784 




PSHS 


B 




JSR 


LC779 




NEGB 




, 


ADDB 


$03, S 


* 


INCB 






STB 


FCBSEC.U 




LDB 


FCBFGR.U 




JSR 


LC755 




LEAU 


FATCON.X 




LDA 


,s 




INCA 




LC33E 


LEAX 

ABX 

DECA 


,u 




BEQ 


LC37B 




STB 


,S 




LDB 


,x 




CMPB 


#$C0 




BLO 


LC33E 


* THE 


GRANULE 


BEING SEARCHED Fl 




LDB 


,s 




TST 


VD8 




BNE 


LC366 


LC352 


LDB 


#2*23 




JMP 


LAC46 



LEAX FCBCON.U 



PURGE RETURN ADDRESS AND REGISTERS OFF OF THE STACK 
EVALUATE DEVICE NUMBER S SET FCB POINTER 
SAVE FCB POINTER 

* RESET THE GET 

* DATA POINTER 
= RESET THE PUT 
= DATA POINTER 

RESET PRINT POSITION COUNTER 

*GET THE FCB DRIVE NUMBER AND 

*SAVE IT IN DSKCON VARIABLE 

GET CURRENT INPUT CHARACTER FROM BASIC 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA 

EVALUATE EXPRESSION - RETURN IN (X) 

SAVE RECORD NUMBER IN ACCD 

POINT X TO FCB 

SAVE RECORD NUMBER IN FCB 

GET RECORD NUMBER 

'BAD RECORD' ERROR IF RECORD NUMBER = 

INCREMENT RECORD NUMBER 

* GET RANDOM FILE RECORD LENGTH AND RANDOM FILE 

* BUFFER POINTER AND SAVE THEM ON THE STACK - 

* THESE ARE THE INITIAL VALUES OF A TEMPORARY 

* RECORD LENGTH COUNTER AND RANDOM BUFFER 

* POINTER WHICH ARE MAINTAINED ON THE STACK 
POINT X TO (RECORD NUMBER -1) 

MULT (UNSIGNED) RECORD LENGTH X (RECORD NUMBER -1) 

SAVE PRODUCT ON THE STACK 

CHECK MS BYTE OF PRODUCT 

'BR' ERROR IF NOT ZERO (RECORD NUMBER TOO BIG) 

* PULL THE BOTTOM 3 PRODUCT BYTES OFF THE STACK; 

* TOP TWO IN X, BOTTOM IN ACCB; ACCB POINTS TO 

* THE FIRST BYTE OF THE SECTOR USED BY THIS RECORD, 

* (X) CONTAINS THE SECTOR OFFSET (IN WHICH SECTOR 

* FROM THE START THE BYTE IS LOCATED) 
612 SECTORS MAX IN A RANDOM FILE 
BRANCH IF RECORD LENGTH O.K. 

'BAD RECORD' ERROR 
JUMP TO ERROR HANDLER 
POINT U TO FCB 

* COMPARE SAVED SECTOR OFFSET TO THE CURRENT SECTOR OFFSET 

* BEING PROCESSED - DO NOT PROCESS A NEW SECTOR IF THEY ARE EQUAL 
SAVE BYTE AND SECTOR OFFSET TO RECORD START ON STACK 

* CHECK FCB GET7PUT FLAG AND 

* BRANCH IF IT WAS A GET 
FORCE GET7PUT TO 'PUT' 
DSKCON WRITE OP CODE 

GO WRITE A SECTOR - SAVE 'PUT' DATA ON DISK 
A GRANULE AND SECTOR NUMBER 

* GET THE NUMBER OF SECTORS TO THE START OF 

* THIS RECORD NUMBER AND CONVERT THEM TO A GRANULE OFFSET 
SAVE GRANULE OFFSET ON THE STACK 

MULTIPLY GRANULE NUMBER X 9 - CONVERT TO NUMBER OF SECTORS 

* NEGATE LS BYTE OF GRANULE OFFSET AND ADD THE 

* LS BYTE OF SECTOR OFFSET - ACCB = SECTOR 

* NUMBER (0-8) CORRESPONDING TO THE SECTOR NUMBER WITHIN A 

* GRANULE OF THE LAST SECTOR OF THE SECTOR OFFSET 
= ADD ONE - SECTORS SAVED IN THE FCB; START 

= AT 1 NOT - SAVE IT IN THE FCB 

GET FIRST GRANULE IN FILE 

POINT X TO FAT 

POINT U TO FAT DATA 

GET NUMBER OF GRANULES OFFSET TO RECORD 

ADD ONE (COMPENSATE FOR DECA BELOW) 

POINT X TO FAT DATA 

POINT X TO CORRECT GRANULE 

DECREMENT GRANULE COUNTER 

BRANCH IF CORRECT GRANULE FOUND 

SAVE GRANULE ADDRESS ON STACK 

GET NEXT GRANULE IN FILE 

LAST GRANULE IN FILE? 

NO - KEEP LOOKING 



GET OFFSET TO LAST GRANULE 

* CHECK GET/PUT FLAG 

* AND BRANCH IF PUT 

'INPUT PAST END OF FILE' ERROR 
JUMP TO ERROR HANDLER 
POINT X TO FCB DATA BUFFER 



READ7WRITE A SECTOR. ENTER WITH OP CODE IN ACCB, BUFFER PTR IN X 



LC35A STB DCOPC 

STX DCBPT 

LEAX ,U 

JSR LC763 



SAVE DSKCON OPERATION CODE VARIABLE 

SAVE DSKCON LOAD BUFFER VARIABLE 

POINT X TO FCB 

CONVERT FCB TRACK AND SECTOR TO DSKCON VARIABLES 



DISK BASIC UNRAVELLED II 



APPENDIX B 
DISASSEMBLY OF DISK BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/26/1999 WALTER K ZYDHEK 



0481 


C363 


7E 


D6 


F2 


0482 










0483 










0484 


C366 


34 


12 




0485 


C368 


BD 


C7 


BF 


0486 


C36B 


IF 


89 




0487 


C36D 


35 


42 




0488 


C36F 


E7 


C4 




0489 


C371 


4A 






0490 


C372 


26 


F2 




0491 


C374 


34 


14 




0492 


C376 


BD 


C7 


IE 


0493 


C379 


35 


14 




0494 










0495 










0496 


C37B 


32 


61 




0497 


C37D 


DE 


Fl 




0498 


C37F 


E7 


43 




0499 


C381 


86 


FF 




0500 


C383 


A7 


4D 




0501 


C385 


A6 


84 




0502 


C387 


81 


C0 




0503 


C389 


25 


27 




0504 


C38B 


84 


3F 




0505 


C38D 


Al 


44 




0506 


C38F 


24 


21 




0507 


C391 


96 


D8 




0508 


C393 


27 


BD 




0509 


C395 


A6 


44 




0510 


C397 


8A 


C0 




0511 


C399 


A7 


84 




0512 


C39B 


BD 


C5 


A9 


0513 


C39E 


AE 


49 




0514 


C3A0 


8C 


01 


00 


0515 


C3A3 


26 


08 




0516 


C3A5 


AC 


C8 


13 


0517 


C3A8 


27 


08 




0518 


C3AA 


86 


81 




0519 


C3AC 


21 


4F 




0520 


C3AD 


4F 






0521 


C3AE 


5F 






0522 


C3AF 


ED 


C8 


13 


0523 


C3B2 


C6 


02 




0524 


C3B4 


AE 


49 




0525 


C3B6 


8C 


01 


00 


0526 


C3B9 


26 


0D 




0527 


C3BB 


32 


67 




0528 


C3BD 


AE 


4B 




0529 


C3BF 


96 


D8 




0530 


C3C1 


27 


02 




0531 


C3C3 


C6 


03 




0532 


> C3C5 


7E 


C3 


5A 


0533 


> C3C8 


BD 


C3 


57 


0534 


C3CB 


35 


14 




0535 










0536 


C3CD 


AF 


4D 




0537 


C3CF 


34 


04 




0538 


C3D1 


BD 


C7 


55 


0539 


C3D4 


30 


06 




0540 


C3D6 


E6 


43 




0541 


C3D8 


3A 






0542 


C3D9 


A6 


84 




0543 


C3DB 


81 


C0 




0544 


C3DD 


25 


2B 




0545 


C3DF 


84 


3F 




0546 


C3E1 


Al 


44 




0547 


C3E3 


26 


25 




0548 


C3E5 


EC 


C8 


13 


0549 


C3E8 


84 


7F 




0550 


C3EA 


34 


06 




0551 


C3EC 


4F 






0552 


C3ED 


E6 


62 




0553 


C3EF 


E3 


63 




0554 


C3F1 


10 


A3 


El 


0555 


C3F4 


23 


14 




0556 


C3F6 


0D 


D8 




0557 


C3F8 


10 


27 


FF 56 


0558 










0559 










0560 










0561 


C3FC 


10 


83 


01 00 


0562 


C400 


23 


03 




0563 


C402 


CC 


01 


00 


0564 


C405 


8A 


80 




0565 










0566 


C407 


ED 


C8 


13 


0567 


C40A 


35 


04 




0568 


C40C 


30 


C8 


19 


0569 


C40F 


3A 






0570 


C410 


EE 


62 




0571 


C412 


34 


04 




0572 


C414 


86 


FF 




0573 










0574 


C416 


E3 


61 




0575 










0576 


C418 


24 


07 







JMP 


LD6F2 


* 'PUT' 


DATA 


INTO A GRANULE NOT 


LC366 


PSHS 


X,A 




JSR 


LC7BF 




TFR 


A,B 




PULS 


A,U 




STB 


,U 




DECA 






BNE 


LC366 




PSHS 


X,B 




JSR 


LC71E 




PULS 


B,X 


* WHEN 


CORRECT GRANULE IS FOUND 


LC37B 


LEAS 


$01, S 




LDU 


FCBTMP 




STB 


FCBCGR.U 




LDA 


#$FF 




STA 


FCBSOF.U 




LDA 


,x 




CMPA 


#$C0 




BLO 


LC3B2 




ANDA 


#$3F 




CMPA 


FCBSEC.U 




BHS 


LC3B2 




LDA 


VD8 




BEQ 


LC352 




LDA 


FCBSEC.U 




ORA 


#$C0 




STA 


,x 




JSR 


LC5A9 




LDX 


FCBRLN.U 




CMPX 


#SECLEN 




BNE 


LC3AD 




CMPX 


FCBLST.U 




BEQ 


LC3B2 




LDA 


#$81 


LC3AC 


BRN 


$C3FD 


LC3AD 


CLRA 
CLRB 






STD 


FCBLST.U 


LC3B2 


LDB 


#$02 




LDX 


FCBRLN.U 




CMPX 


#SECLEN 




BNE 


LC3C8 




LEAS 


$07, S 




LDX 


FCBBUF.U 




LDA 


VD8 




BEQ 


LC3C5 




LDB 


#$03 


LC3C5 


JMP 


LC35A 


LC3C8 


JSR 


LC357 




PULS 


B.X 




STX 


FCBSOF.U 


LC3CF 


PSHS 


B 




JSR 


LC755 




LEAX 


FATCON.X 




LDB 


FCBCGR.U 




ABX 






LDA 


,x 




CMPA 


#$C0 




BLO 


LC40A 




ANDA 


#$3F 




CMPA 


FCBSEC.U 




BNE 


LC40A 




LDD 


FCBLST.U 




ANDA 


#$7F 




PSHS 


B,A 




CLRA 






LDB 


$02, S 




ADDD 


$03, S 




CMPD 


,s++ 




BLS 


LC40A 




TST 


VD8 




LBEQ 


LC352 



* IF LAST USED SECTOR 

* IF DATA IS BEING 'PUT 

CMPD #SECLEN 

BLS LC405 

LDD #SECLEN 

LC405 ORA #$80 

STD FCBLST.U 

LC40A PULS B 

LEAX FCBCON.U 

ABX 

LDU $02, S 

PSHS B 

LDA #-1 

ADDD $01, S 

BHS LC421 



READ7WRITE A TRACK OR SECTOR 

PRESENTLY INCLUDED IN THIS FILE 

SAVE GRANULE COUNTER AND POINTER TO LAST USED GRANULE 

FIND FIRST FREE GRANULE IN FAT 

SAVE FREE GRANULE NUMBER IN ACCB 

PULL LAST GRANULE POINTER AND COUNTER OFF OF STACK 

SAVE NEWLY FOUND GRANULE NUMBER IN ADDRESS OF LAST GRANULE 

DECREMENT GRANULE COUNTER 

GET ANOTHER GRANULE IF NOT DONE 

SAVE POINTER TO LAST GRANULE AND OFFSET 

WRITE FAT TO DISK 

RESTORE POINTER AND OFFSET 

FIND THE RIGHT SECTOR 

REMOVE GRAN NUMBER FROM STACK 

POINT U TO FCB 

SAVE CURRENT GRANULE IN FCB 

*SET FCBSOF.U TO ILLEGAL SECTOR OFFSET WHICH WILL 

*FORCE NEW SECTOR DATA TO BE READ IN 

GET CURRENT GRANULE 

IS IT THE LAST GRANULE? 

NO 

MASK OFF LAST GRANULE FLAG BITS 

* COMPARE CALCULATED SECTOR TO CURRENT SECTOR IN FCB 

* AND BRANCH IF CALCULATED SECTOR IS > LAST SECTOR IN FILE 
= CHECK GET7PUT FLAG: IF 'GET' THEN 'INPUT 

= PAST END OF FILE' ERROR 

* GET CURRENT SECTOR NUMBER FROM FCB, 

* OR IN THE LAST GRANULE FLAG BITS 

* AND SAVE IN FAT 

WRITE FAT TO DISK IF NECESSARY 

* GET RECORD LENGTH AND CHECK TO 

* SEE IF IT IS SECLEN (EXACTLY ONE SECTOR) 
BRANCH IF IT IS NOT EXACTLY ONE SECTOR 

=BRANCH IF THE NUMBER OF BYTES IN THE LAST SECTOR 

=IS SET TO ONE SECTOR (SECLEN) 

*SET THE PRESAVED FLAG (BIT15) AND FORCE 

THE NUMBER OF BYTES IN LAST SECTOR TO 256 

SET THE NUMBER OF BYTES IN LAST SECTOR TO ZERO 

CLEAR LS BYTE OF ACCD 

SAVE THE NUMBER OF BYTES IN LAST SECTOR 

DSKCON READ OP CODE 

* GET RECORD LENGTH AND COMPARE 

* IT TO SECLEN - EXACTLY ONE SECTOR 
BRANCH IF NOT EXACTLY ONE SECTOR LONG 
CLEAN UP STACK 

POINT X TO START OF RANDOM FILE BUFFER 

* CHECK GET7PUT FLAG AND 

* BRANCH IF GET 
DSKCON WRITE OP CODE 
READ7WRITE A SECTOR 

READ A SECTOR INTO FCB DATA BUFFER 

* GET BACK THE BYTE OFFSET TO RECORD: X = NUMBER OF 

* SECTORS; ACCB = BYTE POINTER IN SECTOR 
SAVE SECTOR OFFSET IN FCB 

SAVE BYTE OFFSET ON STACK 

POINT X TO FILE ALLOCATION TABLE 

MOVE X TO FAT DATA 

GET CURRENT GRANULE NUMBER 

POINT X TO PROPER GRANULE IN FAT 

* GET CURRENT GRANULE AND CHECK TO 

* SEE IF IT IS LAST GRANULE 

BRANCH IF THIS GRANULE IS < LAST GRANULE 
MASK OFF LAST GRANULE FLAG BITS 

* COMPARE LAST SECTOR USED IN GRANULE TO 

* CALCULATED SECTOR; BRANCH IF NOT EQUAL 
GET NUMBER OF BYTES IN LAST SECTOR 

MASK OFF PRESAVED FLAG (BIT 15) 

SAVE NUMBER OF BYTES IN LAST SECTOR ON STACK 

* LOAD ACCB WITH THE BYTE OFFSET TO CURRENT 

* RECORD AND ADD THE REMAINING RECORD LENGTH 

* TO IT - ACCD = END OF RECORD OFFSET 

=COMPARE THE END OF RECORD OFFSET TO THE NUMBER OF 
=BYTES USED IN THE LAST SECTOR 

* CHECK GET7PUT FLAG AND BRANCH IF 'GET' 

* TO 'INPUT PAST END OF FILE' ERROR 



CALCULATE HOW MANY BYTES ARE USED 
PASTH THE CURRENT END OF FILE 

COMPARE TO ONE SECTOR'S LENGTH 

BRANCH IF REMAINDER OF RECORD LENGTH WILL FIT IN THIS SECTOR 

FORCE NUMBER OF BYTES = ONE SECTOR LENGTH 

* SET PRE-SAVED FLAG BIT - ALL PUT RECORDS ARE 

* WRITTEN TO DISK BEFORE LEAVING 'PUT' 
SAVE NUMBER OF BYTES USED IN LAST SECTOR 
PULL BYTE OFFSET OFF OF THE STACK 
POINT X TO FCB DATA BUFFER 
MOVE X TO START OF RECORD 

POINT U TO CURRENT POSITION IN RANDOM FILE BUFFER 
SAVE BYTE OFFSET ON STACK 

* CONVERT ACCD INTO A NEGATIVE 2 BYTE NUMBER 

* REPRESENTING THE REMAINING UNUSED BYTES IN THE SECTOR 

* ADD TEMPORARY RECORD LENGTH COUNTER (SUBTRACT 

* REMAINING BYTES FROM TEMPORARY RECORD LENGTH) 
BRANCH IF THERE ARE ENOUGH UNUSED BYTES TO FINISH THE RECORD 



DISK BASIC UNRAVELLED II 
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0577 


C41A 


ED 


61 




0578 


C41C 


35 


04 




0579 


C41E 


50 






0580 










0581 


C41F 


20 


08 




0582 










0583 










0584 










0585 


C421 


E6 


62 




0586 


C423 


6F 


61 




0587 


C425 


6F 


62 




0588 


C427 


32 


61 




0589 


C429 


96 


D8 




0590 


C42B 


27 


02 




0591 


C42D 


IE 


13 




0592 


C42F 


BD 


A5 


9A 


0593 


C432 


EF 


62 




0594 










0595 










0596 










0597 


C434 


DE 


Fl 




0598 


C436 


96 


D8 




0599 


C438 


27 


04 




0600 


C43A 


A7 


4F 




0601 


C43C 


AF 


62 




0602 


C43E 


AE 


4D 




0603 


C440 


30 


01 




0604 


C442 


5F 






0605 


C443 


EE 


E4 




0606 


C445 


10 


26 


FE BD 


0607 


C449 


35 


96 




0608 










0609 










0610 










0611 


C44B 


32 


62 




0612 


C44D 


BD 


Bl 


56 


0613 


C450 


BD 


B6 


A4 


0614 


C453 


34 


04 




0615 


C455 


BD 


A5 


A2 


0616 


C458 


5D 






0617 


C459 


10 


2F 


El A6 


0618 


C45D 


35 


02 




0619 


C45F 


34 


06 




0620 


C461 


0F 


6F 




0621 


C463 


BD 


B2 


6D 


0622 


C466 


8E 


C2 


AC 


0623 


C469 


BD 


C9 


38 


0624 


C46C 


CC 


01 


FF 


0625 


C46F 


FD 


09 


57 


0626 


C472 


8E 


01 


00 


0627 


C475 


9D 


A5 




0628 


C477 


27 


08 




0629 


C479 


BD 


B2 


6D 


0630 


C47C 


BD 


B3 


E6 


0631 


C47F 


9E 


52 




0632 


C481 


BF 


09 


7C 


0633 


C484 


10 


27 


EF C2 


0634 


C488 


BD 


A5 


C7 


0635 


C48B 


35 


06 




0636 










0637 










0638 


C48D 


34 


02 




0639 


C48F 


BD 


C7 


49 


0640 


C492 


10 


26 


El 86 


0641 


C496 


9F 


Fl 




0642 


C498 


BD 


C7 


9D 


0643 


C49B 


BD 


C6 


8C 


0644 


C49E 


35 


04 




0645 


C4A0 


86 


10 




0646 


C4A2 


34 


02 




0647 


C4A4 


CI 


49 




0648 


C4A6 


26 


IF 




0649 










0650 










0651 


C4A8 


BD 


C6 


E5 


0652 


C4AB 


BD 


C8 


07 


0653 


C4AE 


BE 


09 


74 


0654 


C4B1 


EC 


0B 




0655 


C4B3 


FD 


09 


57 


0656 


C4B6 


8D 


75 




0657 


C4B8 


BD 


C6 


27 


0658 


C4BB 


BD 


C7 


55 


0659 


C4BE 


6C 


00 




0660 


C4C0 


9E 


Fl 




0661 


C4C2 


35 


02 




0662 


C4C4 


A7 


00 




0663 


C4C6 


39 






0664 


C4C7 


68 


E4 




0665 


C4C9 


CI 


4F 




0666 


C4CB 


26 


IB 




0667 










0668 










0669 


C4CD 


7D 


09 


73 


0670 


C4D0 


27 


0F 




0671 


C4D2 


BD 


C6 


FC 


0672 


C4D5 


B6 


09 


73 



STD $01, S 
PULS B 
NEGB 



SAVE NEW TEMPORARY RECORD LENGTH COUNTER 
RESTORE BYTE COUNTER 

* NEGATE IT - ACCB = THE NUMBER OF BYTES 

* AVAILABLE TO A RECORD IN THIS SECTOR 
MOVE THE DATA 



BRANCH HERE IF REMAINING RECORD LENGTH WILL FIT IN 



* WHAT' 
LC421 



S LEFT OF THE CURRENTLY SELECTED SECTOR 



LDB 
CLR 
CLR 

LEAS 

LDA 
BEQ 
EXG 
JSR 
STU 



$02, S 
$01, S 
$02, S 
$01, S 
VD8 
LC42F 
X,U 
LA59A 
$02, S 



MOVE DATA FROM FCB DATA BUFFER TO THE RANDOM I 
OR FROM RANDOM FILE BUFFER TO FCB DATA BUFFER 
LDU FCBTMP 



LDA 


VD8 


BEQ 


LC43E 


STA 


FCBFLG.U 


STX 


$02, S 


LDX 


FCBSOF.U 


LEAX 


$01, X 


CLRB 




LDU 


,s 


LBNE 


LC306 


PULS 


A,B,X,PC 



OPEN RAM HOOK 



DVEC0 


LEAS 


$02, S 




JSR 


LB156 




JSR 


LB6A4 




PSHS 


B 




JSR 


LA5A2 




TSTB 






LBLE 


LA603 




PULS 


A 




PSHS 


B,A 




CLR 


DEVNUM 




JSR 


SYNCOMMA 




LDX 


#DATEXT 




JSR 


LC938 




LDD 


#$01FF 




STD 


DFLTYP 




LDX 


#SECLEN 




JSR 


GETCCH 




BEQ 


LC481 




JSR 


SYNCOMMA 




JSR 


LB3E6 




LDX 


FPA0+2 


LC481 


STX 


DFFLEN 




LBEQ 


LB44A 




JSR 


LA5C7 




PULS 


A,B 


* OPEN 


DISK FILE FOR READ OR WRITE 


LC48D 


PSHS 


A 




JSR 


LC749 




LBNE 


LA61C 




STX 


FCBTMP 




JSR 


LC79D 




JSR 


LC68C 




PULS 


B 




LDA 


#INPFIL 




PSHS 


A 




CMPB 


#T 




BNE 


LC4C7 


* OPEN 


A SEQUENTIAL FILE FOR INPUT 




JSR 


LC6E5 




JSR 


LC807 




LDX 


V974 




LDD 


DIRTYP.X 




STD 


DFLTYP 




BSR 


LC52D 




JSR 


LC627 


LC4BB 


JSR 


LC755 




INC 


FAT0.X 




LDX 


FCBTMP 




PULS 


A 




STA 


FCBTYP.X 




RTS 




LC4C7 


ASL 


,S 




CMPB 


#'0' 




BNE 


LC4E8 


* OPEN 


A SEQUENTIAL FILE FOR OUTPU' 




TST 


V973 




BEQ 


LC4E1 




JSR 


LC6CF 




LDA 


V973 



GET REMAINING RECORD LENGTH 

* CLEAR THE TEMPORARY RECORD LENGTH 

* COUNTER ON THE STACK 
PURGE BYTE OFFSET FROM STACK 

* CHECK GET7PUT FLAG AND 

* BRANCH IF GET 

SWAP SOURCE AND DESTINATION POINTERS 

TRANSFER DATA FROM SOURCE TO DESTINATION BUFFERS 

SAVE NEW TEMP RECORD POINTER ON THE STACK (GET) 

FILE BUFFER IF 'GET' 
IF 'PUT' 
POINT U TO FCB 

* CHECK GET/PUT FLAG AND 

* BRANCH IF GET 

SAVE 'PUT' FLAG IN THE FCB 

SAVE NEW TEMPORARY RECORD POINTER ON STACK (PUT) 

* GET SECTOR OFFSET COUNTER AND 

* ADD ONE TO IT 
SET BYTE OFFSET = 

* CHECK THE LENGTH OF THE TEMPORARY RECORD LENGTH 

* COUNTER AND KEEP MOVING DATA IF <> 

* PULL TEMPORARY RECORD LENGTH AND 

* BUFFER ADDRESS OFF STACK AND RETURN 



PULL RETURN ADDRESS OFF OF THE STACK 

EVALUATE AN EXPRESSION 

*GET MODE(I.O.R) - FIRST BYTE OF STRING EXPRESSION 

*AND SAVE IT ON STACK 

GET DEVICE NUMBER 

SET FLAGS 

BRANCH IF NOT A DISK FILE 

GET MODE 

SAVE MODE AND DEVICE NUMBER (FILE NUMBER) 

SET DEVICE NUMBER TO SCREEN 

SYNTAX CHECK FOR COMMA 

POINT TO 'DAT' FOR EXTENSION 

GET FILENAME FROM BASIC 

DEFAULT DISK FILE TYPE AND ASCII FLAG 

SAVE DEFAULT VALUES: DATA, ASCII 

DEFAULT RECORD LENGTH - 1 PAGE 

GET CHAR FROM BASIC 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA 

EVALUATE EXPRESSION 

GET EVALUATED EXPRESSION 

RECORD LENGTH 

IF • 0, THEN 'ILLEGAL FUNCTION CALL' 

ERROR IF ANY FURTHER CHARACTERS ON LINE 

GET MODE AND FILE NUMBER 



SAVE MODE ON STACK 

POINT X TO FCB FOR THIS FILE 

'FILE ALREADY OPEN' ERROR IF FILE OPEN 

SAVE FILE BUFFER POINTER 

MAKE SURE FILE ALLOC TABLE IS VALID 

SCAN DIRECTORY FOR ' FILENAME. EXT' 

GET MODE 

INPUT TYPE FILE 

SAVE FILE TYPE ON STACK 

INPUT MODE? 

BRANCH IF NOT 



CHECK TO SEE IF DIRECTORY MATCH IS FOUND 

CHECK TO SEE IF FILE ALREADY OPEN 

GET RAM DIRECTORY BUFFER 

GET FILE TYPE AND ASCII FLAG 

SAVE IN RAM IMAGE 

INITIALIZE FILE BUFFER CONTROL BLOCK 

GO FILL DATA BUFFER 

POINT X TO PROPER FILE ALLOCATION TABLE 

ADD ONE TO FAT ACTIVE FILE COUNTER 

GET FILE BUFFER POINTER 

GET FILE TYPE 

SAVE IT IN FCB 



SET FILE TYPE TO OUTPUT 
FILE MODE = OUTPUT? 
BRANCH IF NOT 



DOES FILE EXIST ON DIRECTORY? 

BRANCH IF NOT 

KILL THE OLD FILE 

* GET DIRECTORY SECTOR NUMBER OF OLD FILE AND 
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0673 


C4D8 


B7 


09 


77 


0674 


C4DB 


BE 


09 


74 


0675 


C4DE 


BF 


09 


78 


0676 










0677 


C4E1 


BD 


C5 


67 


0678 


C4E4 


8D 


52 




0679 


C4E6 


20 


D3 




0680 


C4E8 


CI 


52 




0681 


C4EA 


27 


06 




0682 


C4EC 


CI 


44 




0683 


C4EE 


10 


26 


El 24 


0684 










0685 










0686 


C4F2 


68 


E4 




0687 


C4F4 


FC 


09 


48 


0688 


C4F7 


34 


06 




0689 


C4F9 


F3 


09 


7C 


0690 


C4FC 


25 


06 




0691 


C4FE 


10 


B3 


09 4A 


0692 


C502 


23 


05 




0693 


C504 


C6 


3A 




0694 


C506 


7E 


AC 


46 


0695 


C509 


34 


06 




0696 


C50B 


7D 


09 


73 


0697 


C50E 


26 


04 




0698 


C510 


8D 


55 




0699 


C512 


20 


05 




0700 


C514 


86 


FF 




0701 


C516 


BD 


C8 


07 


0702 










0703 


C519 


8D 


12 




0704 


C51B 


63 


0D 




0705 










0706 


C51D 


6C 


08 




0707 


C51F 


35 


46 




0708 


C521 


FD 


09 


48 


0709 


C524 


EF 


0B 




0710 


C526 


FE 


09 


7C 


0711 


C529 


EF 


09 




0712 


C52B 


20 


8E 




0713 










0714 










0715 


C52D 


8D 


09 




0716 


C52F 


FE 


09 


74 


0717 


C532 


EE 


4E 




0718 


C534 


EF 


88 


13 


0719 


C537 


39 






0720 










0721 


C538 


9E 


Fl 




0722 


C53A 


C6 


19 




0723 


C53C 


6F 


80 




0724 


C53E 


5A 






0725 


C53F 


26 


FB 




0726 


C541 


9E 


Fl 




0727 


C543 


96 


EB 




0728 


C545 


A7 


01 




0729 


C547 


B6 


09 


76 


0730 


C54A 


A7 


02 




0731 


C54C 


A7 


03 




0732 


C54E 


F6 


09 


73 


0733 


C551 


C0 


03 




0734 


C553 


58 






0735 


C554 


58 






0736 


C555 


58 






0737 


C556 


34 


04 




0738 


C558 


FC 


09 


74 


0739 


C55B 


83 


06 


W 


0740 


C55E 


86 


08 




0741 


C560 


3D 






0742 


C561 


AB 


E0 




0743 


C563 


A7 


88 


12 


0744 


C566 


39 






0745 










0746 










0747 


C567 


C6 


38 




0748 


C569 


B6 


09 


77 


0749 


C56C 


10 


27 


E6 D6 


0750 


C570 


B7 


09 


73 


0751 


C573 


97 


ED 




0752 


C575 


C6 


02 




0753 


C577 


D7 


EA 




0754 


C579 


BD 


D6 


F2 


0755 


C57C 


BE 


09 


78 


0756 


C57F 


BF 


09 


74 


0757 


C582 


33 


84 




0758 


C584 


C6 


20 




0759 


C586 


6F 


80 




0760 


C588 


5A 






0761 


C589 


26 


FB 




0762 


C58B 


8E 


09 


4C 


0763 


C58E 


C6 


0B 




0764 


C590 


BD 


A5 


9A 


0765 


C593 


FC 


09 


57 


0766 


C596 


ED 


40 




0767 


C598 


C6 


21 




0768 


C59A 


BD 


C7 


BF 





STA 


V977 




LDX 


V974 




STX 


V978 


LC4E1 


JSR 


LC567 




BSR 


LC538 




BRA 


LC4BB 


LC4E8 


CMPB 


#'R' 




BEQ 


LC4F2 




CMPB 


#'D' 




LBNE 


LA616 


* OPEN 


A RANDOM7DIRECT FILE 


LC4F2 


ASL 


,s 




LDD 


RNBFAD 




PSHS 


B,A 




ADDD 


DFFLEN 




BLO 


LC504 




CMPD 


FCBADR 




BLS 


LC509 


LC504 


LDB 


#2*29 




JMP 


LAC46 


LC509 


PSHS 


B,A 




TST 


V973 




BNE 


LC514 




BSR 


LC567 




BRA 


LC519 


LC514 


LDA 


#$FF 




JSR 


LC807 


LC519 


BSR 


LC52D 




COM 


FCBSOF.X 




INC 


FCBREC+l.X 




PULS 


A,B,U 




STD 


RNBFAD 




STU 


FCBBUF.X 




LDU 


DFFLEN 




STU 


FCBRLN.X 




BRA 


LC4BB 


* INITIALIZE 


FCB DATA FOR INPUT 


LC52D 


BSR 


LC538 




LDU 


V974 




LDU 


DIRLIST.U 




STU 


FCBLST.X 




RTS 




* INITIALIZE 


FILE CONTROL BLOCK 


LC538 


LDX 


FCBTMP 




LDB 


#FCBCON 


LC53C 


CLR 

DECB 


,x+ 




BNE 


LC53C 




LDX 


FCBTMP 




LDA 


DCDRV 




STA 


FCBDRV.X 




LDA 


V976 




STA 


FCBFGR.X 




STA 


FCBCGR.X 




LDB 


V973 




SUBB 


#$03 




ASLB 






ASLB 






ASLB 






PSHS 


B 




LDD 


V974 




SUBD 


#DBUF0 




LDA 


#$08 




MUL 






ADDA 


,s+ 




STA 


FCBDIR.X 




RTS 




* SET 


UP DIRECTORY AND UPDATE F! 


LC567 


LDB 


#28*2 




LDA 


V977 




LBEQ 


LAC46 




STA 


V973 




STA 


DSEC 




LDB 


#$02 




STB 


DCOPC 




JSR 


LD6F2 




LDX 


V978 




STX 


V974 




LEAU 


,x 




LDB 


#DIRLEN 


LC586 


CLR 

DECB 


,x+ 




BNE 


LC586 




LDX 


#DNAMBF 




LDB 


#11 




JSR 


LA59A 




LDD 


DFLTYP 




STD 


$00, U 




LDB 


#33 




JSR 


LC7BF 



* SAVE IT AS FIRST FREE DIRECTORY ENTRY 
=GET RAM DIRECTORY IMAGE OF OLD FILE AND 
=SAVE IT AS FIRST FREE DIRECTORY ENTRY 

SET UP NEW DIRECTORY ENTRY ON DISK 

INITIALIZE FILE BUFFER 

FLAG AND MAP FCB AS BEING USED 

FILE MODE = R (RANDOM)? 

BRANCH IF SO 

FILE MODE = D (DIRECT)? 

•BAD FILE MODE' ERROR IF NOT 



SET FILE TYPE TO DIRECT 

* GET ADDRESS OF RANDOM FILE BUFFER AREA 

* AND SAVE IT ON THE STACK 
ADD THE RECORD LENGTH 

'OB' ERROR IF SUM > $FFFF 

IS IT > THAN FCB DATA AREA? 

BRANCH IF NOT 

'OUT OF BUFFER SPACE' ERROR 

JUMP TO ERROR HANDLER 

SAVE END OF RANDOM BUFFER ON STACK 

DID THIS FILE EXIST 

BRANCH IF SO 

SET UP NEW FILE IN DIRECTORY 

INITIALIZE FCB 

* SET FILE TYPE MATCH = $FF (ILLEGAL VALUE) - 

* THIS WILL FORCE ANY OPEN MATCHED FILE TO CAUSE 

* A 'FILE ALREADY OPEN' ERROR 
INITIALIZE FCB 

* SET FCBSOF.X TO $FF (ILLEGAL SECTOR OFFSET) WHICH WILL 

* FORCE NEW SECTOR DATA TO BE READ IN DURING GET/PUT 
INITIALIZE RECORD NUMBER = 1 

U = START OF RANDOM FILE BUFFER AREA, ACCD = END 
SAVE NEW START OF RANDOM FILE BUFFER AREA 
SAVE BUFFER START IN FCB 

* GET RANDOM FILE RECORD LENGTH 

* AND SAVE IT IN FCB 

SET FAT FLAG, SAVE FILE TYPE IN FCB 



INITIALIZE FCB 

GET RAM DIRECTORY IMAGE 

*GET NUMBER OF BYTES IN LAST SECTOR OF FILE 

*SAVE IT IN FCB 



GET CURRENT FILE BUFFER 

CLEAR FCB CONTROL BYTES 

CLEAR A BYTE 

DECREMENT COUNTER 

BRANCH IF NOT DONE 

GET CURRENT FILE BUFFER ADDRESS BACK 

*GET CURRENT DRIVE NUMBER AND 

*SAVE IT IN FCB 

=GET FIRST GRANULE - 

=SAVE IT AS THE STARTING GRANULE NUMBER AND 

=SAVE IT AS CURRENT GRANULE NUMBER 

GET DIRECTORY SECTOR NUMBER 

SUBTRACT 3 - DIRECTORY SECTORS START AT 3 

* MULTIPLY SECTORS 

* BY 8 (8 DIRECTORY 

* ENTRIES PER SECTOR) 
SAVE SECTOR OFFSET 

GET RAM DIRECTORY IMAGE 

SUBTRACT RAM OFFSET 

8 DIRECTORY ENTRIES/SECTOR 

NOW ACCA CONTAINS 0-7 

ACCA CONTAINS DIRECTORY ENTRY (0-71) 

SAVE DIRECTORY ENTRY NUMBER 



FILE ALLOCATION TABLE ENTRY IN FIRST UNUSED SECTOR 
'DISK FULL' ERROR 

GET SECTOR NUMBER OF FIRST EMPTY DIRECTORY ENTRY 
'DISK FULL' ERROR IF NO EMPTY DIRECTORY ENTRIES 
SAVE SECTOR NUMBER OF FIRST EMPTY DIRECTORY ENTRY 
SAVE SECTOR NUMBER IN DSKCON REGISTER 
READ OP CODE 
SAVE IN DSKCON REGISTER 
READ SECTOR 

* GET ADDRESS OF RAM IMAGE OF UNUSED DIRECTORY 

* ENTRY AND SAVE AS CURRENT USED RAM IMAGE 
(TFR X,U) POINT U TO DIRECTORY RAM IMAGE 
SET COUNTER TO CLEAR 32 BYTES (DIRECTORY ENTRY) 
CLEAR BYTE 
DECREMENT COUNTER 
CONTINUE IF NOT DONE 

POINT TO FILENAME AND EXTENSION RAM IMAGE 
11 BYTES IN FILENAME AND EXTENSION 
MOVE B BYTES FROM X TO U 
GET FILE TYPE AND ASCII FLAG 
SAVE IN RAM IMAGE 
FIRST GRANULE TO CHECK 
FIND THE FIRST FREE GRANULE 



DISK BASIC UNRAVELLED II 
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ORIGIN:SPECTRAL ASSOC 
REVISED:12/26/1999 WALTER K ZYDHEK 



0769 


C59D 


B7 


09 


76 


0770 


C5A0 


A7 


42 




0771 


C5A2 


C6 


03 




0772 


C5A4 


D7 


EA 




0773 


C5A6 


BD 


D6 


F2 


0774 


C5A9 


34 


56 




0775 


C5AB 


BD 


C7 


55 


0776 


C5AE 


6C 


01 




0777 


C5B0 


A6 


01 




0778 


C5B2 


Bl 


09 


7A 


0779 










0780 


C5B5 


25 


03 




0781 


C5B7 


BD 


C7 


IE 


0782 


C5BA 


35 


D6 




0783 










0784 










0785 


C5BC 


96 


6F 




0786 


C5BE 


10 


2F 


C7 2F 


0787 


C5C2 


32 


62 




0788 


C5C4 


34 


14 




0789 


C5C6 


0F 


70 




0790 


C5C8 


8E 


09 


26 


0791 


C5CB 


D6 


6F 




0792 


C5CD 


58 






0793 


C5CE 


AE 


85 




0794 


C5D0 


E6 


84 




0795 


C5D2 


CI 


40 




0796 


C5D4 


26 


16 




0797 










0798 










0799 


C5D6 


EC 


88 


15 


0800 


C5D9 


10 


A3 


09 


0801 


C5DC 


24 


20 




0802 


C5DE 


C3 


00 


01 


0803 


C5E1 


ED 


88 


15 


0804 


C5E4 


AE 


0B 




0805 


C5E6 


30 


8B 




0806 


C5E8 


A6 


IF 




0807 


C5EA 


35 


94 




0808 










0809 


C5EC 


E6 


88 


10 


0810 


C5EF 


27 


08 




0811 


C5F1 


A6 


88 


11 


0812 


C5F4 


6F 


88 


10 


0813 


C5F7 


35 


94 




0814 










0815 


C5F9 


E6 


88 


17 


0816 


C5FC 


27 


04 




0817 


C5FE 


03 


70 




0818 


C600 


35 


94 




0819 










0820 


C602 


E6 


05 




0821 


C604 


6C 


05 




0822 


C606 


6A 


88 


18 


0823 


C609 


27 


06 




0824 


C60B 


3A 






0825 


C60C 


A6 


88 


19 


0826 


C60F 


35 


94 




0827 










0828 


C611 


34 


60 




0829 


C613 


4F 






0830 


C614 


33 


8B 




0831 


C616 


A6 


C8 


19 


0832 


C619 


34 


02 




0833 


C61B 


6F 


05 




0834 


C61D 


A6 


01 




0835 


C61F 


97 


EB 




0836 


C621 


8D 


04 




0837 


C623 


35 


62 




0838 


C625 


35 


94 




0839 










0840 


C627 


A6 


04 




0841 


C629 


4C 






0842 


C62A 


34 


02 




0843 


C62C 


81 


09 




0844 


C62E 


23 


01 




0845 


C630 


4F 






0846 


C631 


A7 


04 




0847 


C633 


E6 


03 




0848 


C635 


33 


84 




0849 


C637 


BD 


C7 


55 


0850 


C63A 


3A 






0851 


C63B 


E6 


06 




0852 


C63D 


30 


C4 




0853 


C63F 


CI 


C0 




0854 


C641 


24 


0A 




0855 


C643 


35 


02 




0856 


C645 


80 


0A 




0857 


C647 


26 


15 




0858 


C649 


E7 


03 




0859 


C64B 


20 


DC 




0860 


C64D 


C4 


3F 




0861 


C64F 


CI 


09 




0862 


C651 


23 


05 




0863 


C653 


C6 


40 




0864 


C655 


7E 


AC 


46 



STA 


V976 


STA 


$02, U 


LDB 


#$03 


STB 


DCOPC 


JSR 


LD6F2 


PSHS 


U,X,B,A 


JSR 


LC755 


INC 


FAT1.X 


LDA 


FAT1.X 


CMPA 


WFATVL 



BLO LC5BA 
JSR LC71E 
LC5BA PULS A,B,X,U,PC 

* CONSOLE IN RAM VECTOR 



DVEC4 


LDA 


DEVNUM 




LBLE 


XVEC4 




LEAS 


$02, S 


LC5C4 


PSHS 


X,B 




CLR 


CINBFL 




LDX 


#FCBVl-2 




LDB 


DEVNUM 




ASLB 






LDX 


B,X 




LDB 


FCBTYPE.X 




CMPB 


#RANFIL 




BNE 


LC5EC 


* GET A 


BYTE 


FROM A RANDOM FILE - RETUI 




LDD 


FCBGET.X 




CMPD 


FCBRLN.X 




BHS 


LC5FE 




ADDD 


#$0001 




STD 


FCBGET.X 




LDX 


FCBBUF.X 




LEAX 


D,X 




LDA 


$-l,X 




PULS 


B,X,PC 


* GET A 


BYTE 


'ROM A SEQUENTIAL FILE 


LC5EC 


LDB 


FCBCFL.X 




BEQ 


LC5F9 




LDA 


FCBCDT.X 




CLR 


FCBCFL.X 




PULS 


B,X,PC 


LC5F9 


LDB 


FCBDFL.X 




BEQ 


LC602 




COM 


CINBFL 




PULS 


B,X,PC 


LC602 


LDB 


FCBCPT.X 




INC 


FCBCPT.X 




DEC 


FCBLFT.X 




BEQ 


LC611 




ABX 






LDA 


FCBCON.X 




PULS 


B,X,PC 


* GET A 


CHARACTER FROM FCB DATA BUFFER 


LC611 


PSHS 

CLRA 


U,Y 




LEAU 


D,X 




LDA 


FCBCON.U 




PSHS 


A 




CLR 


FCBCPT.X 




LDA 


FCBDRV.X 




STA 


DCDRV 




BSR 


LC627 




PULS 


A,Y,U 




PULS 


B,X,PC 


* REFILL THE 


=CB INPUT DATA BUFFER FOR 


LC627 


LDA 


FCBSEC.X 


LC629 


INCA 






PSHS 


A 




CMPA 


#$09 




BLS 


LC631 




CLRA 




LC631 


STA 


FCBSEC.X 




LDB 


FCBCGR.X 




LEAU 


,x 




JSR 


LC755 




ABX 






LDB 


FATCON.X 




LEAX 


,u 




CMPB 


#$C0 




BHS 


LC64D 




PULS 


A 




SUBA 


#10 




BNE 


LC65E 




STB 


FCBCGR.X 




BRA 


LC629 


LC64D 


ANDB 


#$3F 




CMPB 


#$09 




BLS 


LC658 


LC653 


LDB 


#2*32 




JMP 


LAC46 



SAVE IN RAM 

SAVE IN RAM IMAGE OF DIRECTORY TRACK 

* GET WRITE OPERATION CODE AND SAVE 

* IT IN DSKCON REGISTER 

GO WRITE A SECTOR IN DIRECTORY 
SAVE REGISTERS 

POINT X TO FILE ALLOCATION TABLE 
INDICATE NEW DATA IN FILE ALLOC TABLE 
GET NEW DATA FLAG 

* HAVE ENOUGH GRANULES BEEN REMOVED FROM THE FAT TO 

* CAUSE THE FAT TO BE WRITTEN TO THE DISK 
RETURN IF NO NEED TO WRITE OUT ALLOCATION TABLE 
WRITE FILE ALLOCATION SECTOR TO DISK 

RESTORE REGISTERS 



GET DEVICE NUMBER 

BRANCH IF NOT DISK FILE 

GET RID OF RETURN ADDRESS 

SAVE REGISTERS 

CLEAR BUFFER NOT EMPTY FLAG 

POINT TO FILE BUFFER VECTOR TABLE 

GET ACTIVE DISK FILE NUMBER 

TIMES 2 - TWO BYTES PER FCB ADDRESS 

NOW X POINTS TO FILE BUFFER 

GET FILE TYPE 

IS THIS A RANDOM (DIRECT) FILE? 

BRANCH IF NOT 



RETURN CHAR IN ACCA 

GET THE RECORD COUNTER 

'COMPARE TO RECORD LENGTH AND 

♦BRANCH TO BUFFER EMPTY IF >= RECORD LENGTH 

= ADD ONE TO RECORD POINTER AND 

= SAVE IT IN FCB 

* POINT X TO START OF RANDOM FILE BUFFER AND 

* ADD THE RECORD COUNTER TO IT 
GET A CHARACTER FROM THE BUFFER 
RESTORE REGISTERS AND RETURN 

* TEST THE CACHE FLAG AND BRANCH IF AN 

* EXTRA CHARACTER HAS NOT BEEN READ FROM FILE 
GET THE CACHE CHARACTER 
CLEAR THE CACHE FLAG 
RESTORE REGISTERS AND RETURN 

IS ANY DATA LEFT? 

BRANCH IF SO 

SET FLAG TO BUFFER EMPTY 

RESTORE REGISTERS AND RETURN 

GET CHARACTER POINTER 

ADD ONE TO CHARACTER POINTER 

DECREMENT NUMBER OF CHARACTERS LEFT IN FILE BUFFER 

IF LAST CHARACTER, GO GET SOME MORE 

ADD CHARACTER COUNTER TO X 

GET DATA CHARACTER (SKIP PAST 25 FCB CONTROL BYTES 

- RETURN CHAR IN ACCA 

SAVE REGISTERS 

* POINT U TO CORRECT CHARACTER 
=GET DATA CHAR (SKIP PAST 25 CONTROL BYTES) 
=AND SAVE DATA CHARACTER ON STACK 
RESET CHAR POINTER TO START OF BUFFER 
GET DRIVE NUMBER AND SAVE IT IN 
DSKCON VARIABLE 

GO READ A SECTOR - FILL THE BUFFER 
RESTORE REGISTERS AND DATA CHARACTER 
RESTORE REGISTERS AND RETURN 

SEQUENTIAL FILES 

GET CURRENT SECTOR NUMBER 

ADD ONE 

SAVE NEW SECTOR NUMBER ON THE STACK 

NINE SECTORS PER GRANULE 

BRANCH IF <= 9 

SET TO SECTOR ZERO 

SAVE SECTOR NUMBER 

GET GRANULE NUMBET TO FAT POINTER 

POINT U TO FCB (TFR X,U) 

POINT X TO PROPER FILE ALLOCATION TABLE 

ADD OLD GRANULE NUMBER TO FAT POINTER 

GET GRANULE NUMBER (6 CONTROL BYTES AT FRONT OF FAT) 

POINT X TO FCB 

IS CURRENT GRANULE LAST ONE IN FILE? 

YES 

GET SECTOR NUMBER 

WAS IT 10? - OVERFLOW TO NEXT GRANULE IF SO 

BRANCH IF NOT 

SAVE NEW GRANULE NUMBER 

SET VARIABLES FOR NEW GRANULE 

GET NUMBER OF SECTORS USED IN THIS GRANULE 

9 SECTORS 7 GRANULE 

BRANCH IF OK 

'BAD FILE STRUCTURE' ERROR 

ERROR DRIVER 
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0865 


C658 


E0 


E0 




0866 


C65A 


25 


21 




0867 


C65C 


IF 


98 




0868 


C65E 


34 


02 




0869 


C660 


8D 


23 




0870 


C662 


86 


02 




0871 


C664 


97 


EA 




0872 


C666 


BD 


C7 


63 


0873 


C669 


33 


88 


19 


0874 


C66C 


DF 


EE 




0875 


C66E 


BD 


D6 


F2 


0876 


C671 


6F 


88 


18 


0877 


C674 


E6 


E0 




0878 


C676 


26 


0C 




0879 


C678 


EC 


88 


13 


0880 


C67B 


26 


04 




0881 


C67D 


5F 






0882 


C67E 


63 


88 


17 


0883 


C681 


E7 


88 


18 


0884 


C684 


39 






0885 










0886 


C685 


EE 


07 




0887 


C687 


33 


41 




0888 


C689 


EF 


07 




0889 


C68B 


39 






0890 










0891 










0892 










0893 










0894 










0895 


C68C 


7F 


09 


73 


0896 


C68F 


7F 


09 


77 


0897 


C692 


CC 


11 


02 


0898 


C695 


97 


EC 




0899 


C697 


D7 


EA 




0900 


C699 


C6 


03 




0901 


C69B 


D7 


ED 




0902 


C69D 


CE 


06 


00 


0903 


C6A0 


DF 


EE 




0904 


C6A2 


BD 


D6 


F2 


0905 


C6A5 


FF 


09 


74 


0906 


C6A8 


31 


C4 




0907 


C6AA 


A6 


C4 




0908 


C6AC 


26 


28 




0909 


C6AE 


8D 


29 




0910 


C6B0 


8E 


09 


4C 


0911 


C6B3 


A6 


80 




0912 


C6B5 


Al 


C0 




0913 


C6B7 


26 


0E 




0914 


C6B9 


8C 


09 


57 


0915 


C6BC 


26 


F5 




0916 


C6BE 


F7 


09 


73 


0917 


C6C1 


A6 


42 




0918 


C6C3 


B7 


09 


76 


0919 


C6C6 


39 






0920 










0921 


C6C7 


33 


A8 


20 


0922 


C6CA 


11 


83 


07 


0923 


C6CE 


26 


D5 




0924 


C6D0 


5C 






0925 


C6D1 


CI 


0B 




0926 


C6D3 


23 


C6 




0927 


C6D5 


39 






0928 










0929 


C6D6 


43 






0930 


C6D7 


26 


D7 




0931 










0932 










0933 


C6D9 


B6 


09 


77 


0934 


C6DC 


26 


06 




0935 


C6DE 


F7 


09 


77 


0936 


C6E1 


FF 


09 


78 


0937 


C6E4 


39 






0938 










0939 


C6E5 


C6 


34 




0940 


C6E7 


7D 


09 


73 


0941 


C6EA 


26 


F8 




0942 


C6EC 


7E 


AC 


46 


0943 










0944 










0945 


C6EF 


BD 


C9 


35 


0946 


C6F2 


BD 


A5 


C7 


0947 


C6F5 


BD 


C7 


9D 


0948 


C6F8 


8D 


92 




0949 


C6FA 


8D 


E9 




0950 


C6FC 


86 


FF 




0951 










0952 


C6FE 


BD 


C8 


07 


0953 


C701 


BE 


09 


74 


0954 


C704 


6F 


84 




0955 


C706 


C6 


03 




0956 


C708 


D7 


EA 




0957 


C70A 


BD 


D6 


F2 


0958 


C70D 


E6 


0D 




0959 


C70F 


8D 


44 




0960 


C711 


30 


06 





LC658 


SUBB 


,S+ 






BLO 


LC67D 






TFR 


B,A 




LC65E 


PSHS 


A 






BSR 


LC685 






LDA 


#$02 






STA 


DCOPC 






JSR 


LC763 






LEAU 


FCBCON 


,x 




STU 


DCBPT 






JSR 


LD6F2 






CLR 


FCBLFT 


,x 




LDB 


,s+ 






BNE 


LC684 






LDD 


FCBLST 


,x 




BNE 


LC681 




LC67D 


CLRB 








COM 


FCBDFL 


,x 


LC681 


STB 


FCBLFT 


,x 


LC684 


RTS 






LC685 


LDU 


FCBREC 


,x 




LEAU 


$01, U 






STU 


FCBREC 


,x 




RTS 







SCAN DIRECTORY FOR FILENAME. 
RETURN WITH SECTOR NUMBER IN 
CONTAINING DIRECTORY DATA IN 



* V977 


= 0. THE FIRST UNUSED SI 


LC68C 


CLR 


V973 




CLR 


V977 




LDD 


#$1102 




STA 


DCTRK 




STB 


DCOPC 




LDB 


#$03 


LC69B 


STB 


DSEC 




LDU 


#DBUF0 




STU 


DCBPT 




JSR 


LD6F2 


LC6A5 


STU 


V974 




LEAY 


,U 




LDA 


,u 




BNE 


LC6D6 




BSR 


LC6D9 


LC6B0 


LDX 


#DNAMBF 


LC6B3 


LDA 


,x+ 




CMPA 


,u+ 




BNE 


LC6C7 




CMPX 


#DNAMBF+11 




BNE 


LC6B3 




STB 


V973 




LDA 


FCBFGR.U 




STA 


V976 




RTS 




LC6C7 


LEAU 


DIRLEN.Y 




CMPU 


#DBUF0+SECLEN 




BNE 


LC6A5 




INCB 






CMPB 


#11 




BLS 


LC69B 




RTS 




LC6D6 


COMA 






BNE 


LC6B0 


* SET 


•OINTERS FOR FIRST UNUSEI 


LC6D9 


LDA 


V977 




BNE 


DVEC12 




STB 


V977 




STU 


V978 


DVEC12 


RTS 




LC6E4 


LDB 


#2*26 




TST 


V973 




BNE 


DVEC12 




JMP 


LAC46 


* KILL 


COMMAND 


KILL 


JSR 


LC935 




JSR 


LA5C7 




JSR 


LC79D 




BSR 


LC68C 




BSR 


LC6E5 


LC6FC 


LDA 


#$FF 




JSR 


LC807 




LDX 


V974 




CLR 


DIRNAM.X 




LDB 


#$03 




STB 


DCOPC 




JSR 


LD6F2 




LDB 


DIRGRN.X 


LC70F 


BSR 


LC755 



LEAX FATCON.X 



SUBTRACT CURRENT SECTOR NUMBER AND PULS A 

BRANCH IF PAST LAST SECTOR 

SECTOR NUMBER TO ACCA 

SAVE SECTOR NUMBER DIFFERENCE 

INCREMENT RECORD NUMBER 

*GET READ OPERATION CODE 

*AND SAVE IT IN DSKCON VARIABLE 

GET PROPER TRACK AND SECTOR TO DSKCON VARIABLES 

* POINT U TO START OF FCB DATA BUFFER 

* AND SAVE IT IN DSKCON VARIABLE 
GO READ A SECTOR INTO FCB BUFFER 
NUMBER OF CHARS LEFT IN BUFFER = 256 
GET SECTOR NUMBER OFF STACK 

RETURN IF DATA LEFT; FALL THRU IF LAST SECTOR 

GET NUMBER OF BYTES IN THE LAST SECTOR 

BRANCH IF SOME BYTES IN LAST SECTOR 

SET NUMBER OF REMAINING BYTES = 256 

SET DATA LEFT FLAG TO $FF 

SAVE THE NUMBER OF CHARS LEFT IN BUFFER 



GET CURRENT RECORD NUMBER 
BUMP IT 
PUT IT BACK 



EXT FOUND IN DNAMBF. IF FILENAME FOUND, 
V973, GRANULE IN V976 AND RAM BUFFER 
V974. IF DISK IS FULL THEN V973, 

ECTOR RETURNED IN V977, RAM IMAGE IN V978 
CLEAR SECTOR NUMBER 
CLEAR TEMP SECTOR COUNTER 
TRACK 17 (DIRECTORY), READ OPERATION CODE 
SAVE TRACK NUMBER 
SAVE OPERATION CODE (READ) 
READ SECTOR 3 (FIRST DIRECTORY SECTOR) 
SAVE SECTOR NUMBER IN DSKCON VARIABLE 
♦BUFFER AREA NUMBER AS DATA BUFFER - SAVE 
*IN DSKCON VARIABLE 
GO READ A SECTOR 

SAVE RAM DIRECTORY BUFFER ADDRESS 
POINT Y TO DIRECTORY BUFFER 
GET A BYTE FROM BUFFER 
BRANCH IF NOT ZERO - FILE IS ACTIVE 
SET UNUSED FILE POINTERS IF ENTRY HAS BEEN KILLED 
POINT TO DISK FILE NAME BUFFER 
♦COMPARE THE FILENAME AND EXTENSION 
♦STORED IN RAM AT DNAMBF TO THE DIRECTORY 
♦ENTRY STORED AT ,U (BRANCH IF MISMATCH) 
AT END OF FILE NAME BUFFER? 
BRANCH IF NOT DONE CHECKING FILENAME 
SAVE SECTOR NUMBER IN DSKCON VARIABLE 
♦GET NUMBER OF FIRST GRANULE IN FILE 
♦AND SAVE IT IN V976 



GET NEXT DIRECTORY ENTRY (DIRLEN BYTES PER ENTRY) 

AT END OF BUFFER? 

CHECK NEXT ENTRY IF NOT AT END 

NEXT SECTOR 

11 SECTORS MAX IN DIRECTORY 

BRANCH IF MORE SECTORS 



COMPLEMENT FIRST BYTE IN DIRECTORY EMTRY 

BRANCH IF FILE IS ACTIVE - FALL THRU IF NOT USED 



UNUSED ENTRY ALREADY FOUND? 

RETURN IF UNUSED ENTRY ALREADY FOUND 

SECTOR CONTAINING THIS DIRECTORY ENTRY 

POINTS TO RAM AREA WHERE DIRECTORY DATA IS STORED 



'NE' ERROR 

WAS A DIRECTORY MATCH FOUND? 

RETURN IF FOUND 

JUMP TO ERROR HANDLER IF NOT FOUND 



GET FILENAME. EXT FROM BASIC 

'SYNTAX' ERROR IF MORE CHARACTERS ON LINE 

GET VALID FAT DATA 

TEST FOR FILE NAME MATCH IN DIRECTORY 

MAKE SURE THE FILE EXISTED 

♦ MATCH FILE TYPE = $FF; THIS WILL CAUSE AN 'AO' 

♦ ERROR TO BE GENERATED IF ANY FILE TYPE IS OPEN 
CHECK TO MAKE SURE FILE IS NOT OPEN 

♦GET RAM IMAGE OF DIRECTORY 

♦AND ZERO FIRST BYTE - KILL FILE 

=WRITE OPERATION CODE - SAVE 

=IT IN DSKCON VARIABLE 

WRITE A SECTOR 

GET NUMBER OF FIRST GRANULE IN FILE 

POINT X TO PROPER FILE ALLOCATION TABLE 

SKIP 6 CONTROL BYTES 
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0961 


C713 


3A 






0962 


C714 


E6 


84 




0963 


C716 


86 


FF 




0964 


C718 


A7 


84 




0965 


C71A 


CI 


C0 




0966 


C71C 


25 


Fl 




0967 










0968 










0969 


C71E 


CE 


06 


00 


0970 


C721 


DF 


EE 




0971 


C723 


CC 


11 


03 


0972 


C726 


97 


EC 




0973 


C728 


D7 


EA 




0974 


C72A 


C6 


02 




0975 


C72C 


D7 


ED 




0976 


C72E 


8D 


25 




0977 


C730 


6F 


01 




0978 


C732 


30 


06 




0979 


C734 


C6 


44 




0980 


C736 


BD 


A5 


9A 


0981 










0982 










0983 


C739 


6F 


C0 




0984 


C73B 


11 


83 


07 


0985 


C73F 


26 


F8 




0986 


C741 


7E 


D6 


F2 


0987 











LDB 


,x 


LDA 


#$FF 


STA 


,x 


CMPB 


#$C0 


BLO 


LC70F 


LDU 


#DBUF0 


STU 


DCBPT 


LDD 


#$1103 


STA 


DCTRK 


STB 


DCOPC 


LDB 


#$02 


STB 


DSEC 


BSR 


LC755 


CLR 


FAT1.X 


LEAX 


FATCON.X 


LDB 


#GRANMX 


JSR 


LA59A 



POINT TO CORRECT ENTRY 

GET NEXT GRANULE 

*GET FREE GRANULE FLAG AND 

*MARK GRANULE AS FREE 

WAS THIS THE LAST GRANULE? 

* KEEP FREEING GRANULES IF NOT LAST ONE 

* WRITE FILE ALLOCATION SECTOR TO DIRECTORY - DO NOT WRITE 

* THE SIX CONTROL BYTES AT THE START OF THE FAT TO THE DISK 
=POINT U TO DISK BUFFER AND 

=SAVE IT AS DSKCON VARIABLE 

* WRITE DIRECTORY TRACK - SAVE 

* TRACK AND WRITE OPERATION CODE IN 

* DSKCON VARIABLES 

= GET FILE ALLOCATION SECTOR AND 

= SAVE IN DSKCON VARIABLE 

POINT X TO PROPER FILE ALLOCATION TABLE 

RESET FLAG INDICATING VALID FAT DATA HAS BEEN STORED ON DISK 

MOVE (X) TO START OF GRANULE DATA 

68 BYTES IN FAT 

MOVE ACCB BYTES FROM FAT RAM IMAGE TO DBUF0 



* ZERO OUT ALL OF THE BYTES IN THE FAT SECTOR WHICH DO NOT CONTAIN THE GRANULE DATA 
LC739 CLR ,U+ CLEAR A BYTE 

CMPU #DBUF0+SECLEN FINISHED THE WHOLE SECTOR? 

BNE LC739 NO 

JMP LD6F2 WRITE A SECTOR 

* ENTER WITH ACCB CONTAINING FILE NUMBER (1-15); EXIT WITH X POINTING 

* TO CORRECT FILE BUFFER; FLAGS SET ACCORDING TO FILE TYPE. 



0991 


C744 


34 


04 


0992 


C746 


D6 


6F 


0993 


C748 


8C 




0994 


C749 


34 


04 


0995 


C74B 


58 




0996 


C74C 


8E 


09 26 


0997 


C74F 


AE 


85 


0998 


C751 


E6 


00 


0999 


C753 


35 


84 


1000 








1001 








1002 








1003 


C755 


34 


06 


1004 


C757 


96 


EB 


1005 


C759 


C6 


4A 


1006 


C75B 


3D 




1007 


C75C 


8E 


08 00 


1008 


C75F 


30 


8B 


1009 


C761 


35 


86 


1010 








1011 








1012 








1013 


C763 


E6 


03 


1014 


C765 


54 




1015 


C766 


D7 


EC 


1016 


C768 


CI 


11 


1017 


C76A 


25 


02 


1018 


C76C 


0C 


EC 


1019 


C76E 


58 




1020 


C76F 


50 




1021 


C770 


EB 


03 


1022 


C772 


8D 


05 


1023 


C774 


EB 


04 


1024 


C776 


D7 


ED 


1025 


C778 


39 




1026 








1027 


C779 


34 


06 


1028 


C77B 


58 




1029 


C77C 


49 




1030 


C77D 


58 




1031 


C77E 


49 




1032 


C77F 


58 




1033 


C780 


49 




1034 


C781 


E3 


El 


1035 


C783 


39 




1036 








1037 








1038 








1039 








1040 








1041 








1042 


C784 


6F 


E2 


1043 


C786 


6C 


E4 


1044 


C788 


83 


00 5A 


1045 


C78B 


2A 


F9 


1046 


C78D 


A6 


E4 


1047 


C78F 


E7 


E4 


1048 


C791 


C6 


0A 


1049 


C793 


3D 




1050 


C794 


35 


02 


1051 


C796 


5A 




1052 


C797 


8B 


09 


1053 


C799 


2B 


FB 


1054 


C79B 


4F 




1055 


C79C 


39 




1056 









PSHS 


B 




LDB 


DEVNUM 




CMPX 


#$3404 




PSHS 


B 




ASLB 






LDX 


#FCBV1- 


2 


LDX 


B,X 




LDB 


FCBTYP, 


X 


PULS 


B,PC 





POINT X TO DRIVE ALLOCATION TABLE 



PSHS 


B,A 


LDA 


DCDRV 


LDB 


#FATLEN 


MUL 




LDX 


#FATBL0 


LEAX 


D,X 


PULS 


A.B.PC 



CONVERT GRANULE NUMBER TO TRACK S SECTOR 
FCB; THE TRACK AND SECTOR NUMBER WILL BE 



LC763 


LDB 
LSRB 


FCBCGR, 


X 




STB 


DCTRK 






CMPB 


#17 






BLO 


LC76E 






INC 


DCTRK 




LC76E 


ASLB 
NEGB 








ADDB 


FCBCGR ; 


,X 




BSR 


LC779 






ADDB 


FCBSEC, 


,x 




STB 


DSEC 






RTS 






* MULTIPLY ACCD BY 9 




LC778 


PSHS 
ASLB 
ROLA 
ASLB 

ROLA 
ASLB 
ROLA 


B,A 






ADDD 


,s++ 






RTS 







SAVE FILE NUMBER ON STACK 

GET DEVICE NUMBER (FILE NUMBER) 

SKIP TWO BYTES 

SAVE FILE NUMBER ON STACK 

X2: 2 BYTES PER POINTER 

POINT X TO START OF FCB POINTERS 

POINT X TO PROPER FCB 

SET FLAGS ACCORDING TO FILE TYPE 

RESTORE FILE NUMBER 



SAVE ACCD ON STACK 

GET DRIVE NUMBER 

GET LENGTH OF FILE ALLOCATION TABLE 

MULTIPLY BY DRIVE NUMBER TO GET OFFSET 

START OF FILE ALLOCATION TABLE 

POINT TO RIGHT TABLE 

RESTORE ACCD 

NUMBER - X MUST BE POINTING TO CORRECT 
STORED IN DSKCON REGISTERS 

GET GRANULE NUMBER 

DIVIDE BY 2 - 2 GRANULES 7 TRACK 

TRACK NUMBER 

TRACK 17 = DIRECTORY TRACK 

BRANCH IF < DIRECTORY TRACK 

INCR TRACK NUMBER IF > DIRECTORY TRACK 

MULTIPLY TRACK NUMBER BY 2 

NEGATE GRANULE NUMBER 

B=0 IF EVEN GRANULE; 1 IF ODD 

RETURN B=0 FOR EVEN GRANULE NUMBER, B=9 FOR ODD GRANULE NUMBER 

ADD SECTOR NUMBER 

SAVE SECTOR NUMBER 



TEMP STORE ACCD ON STACK 
* MULTIPLY BY 2 
= MULTIPLY BY FOUR 



* MULTIPLY BY EIGHT 

ADD ONE = MULTIPLY BY NINE 



CONVERT ACCD INTO A GRANULE NUMBER - RETURN RESULT IN ACCB; 
ENTER WITH ACCD CONTAINING A NUMBER OF SECTORS. RETURN IN ACCB 
THE NUMBER (0-67) CORRESPONDING TO THE NUMBER OF COMPLETE 
GRANULES CONTAINED IN THAT MANY SECTORS. 



* DIVIDE 


BY 90, MULTIPLY 


LC784 


CLR 


,-s 


LC756 


INC 


,s 




SUBD 


#9*10 




BPL 


LC786 




LDA 


,s 




STB 


,s 




LDB 


#10 




MUL 






PULS 


A 


LC796 


DECB 






ADDA 


#$09 




BMI 


LC796 




CLRA 




LC79C 


RTS 





BY 10 IS FASTER THAN DIVIDE BY 9 

CLEAR A TEMPORARY SLOT ON THE STACK 

* DIVIDE ACCD BY 90 - SAVE THE 

* QUOTIENT+1 ON THE STACK - REMAINDER 

* IN ACCB 

= PUT THE OUOTIENT+1 IN ACCA AND 
= SAVE REMAINDER ON STACK 

* MULTIPLY (QUOTIENT+1) 

* BY 10 

PUT THE REMAINDER IN ACCA 

* DECREMENT THE GRANULE COUNT BY ONE FOR 

* EVERY NINE SECTORS (1 GRANULE) IN THE 

* REMAINDER - COMPENSATE FOR THE + 1 IN OUOTIENT+1 
CLEAR MS BYTE OF ACCD 



DISK BASIC UNRAVELLED II 



APPENDIX B 
DISASSEMBLY OF DISK BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/26/1999 WALTER K ZYDHEK 



1058 


C79D 


8D 


B6 


1059 


C79F 


6D 


00 


1060 


C7A1 


26 


F9 


1061 


C7A3 


6F 


01 


1062 


C7A5 


33 


06 


1063 


C7A7 


8E 


06 00 


1064 


C7AA 


9F 


EE 


1065 


C7AC 


CC 


11 02 


1066 


C7AF 


97 


EC 


1067 


C7B1 


D7 


EA 


1068 


C7B3 


C6 


02 


1069 


C7B5 


D7 


ED 


1070 


C7B7 


BD 


D6 F2 


1071 


C7BA 


C6 


44 


1072 


C7BC 


7E 


A5 9A 


1073 








1074 








1075 








1076 








1077 








1078 








1079 


C7BF 


8D 


94 


1080 


C7C1 


30 


06 


1081 


C7C3 


4F 




1082 


C7C4 


C4 


FE 


1083 


C7C6 


6F 


E2 


1084 


C7C8 


63 


85 


1085 


C7CA 


27 


31 


1086 


C7CC 


63 


85 


1087 


C7CE 


4C 




1088 


C7CF 


81 


44 


1089 


C7D1 


24 


25 


1090 


C7D3 


5C 




1091 


C7D4 


C5 


01 


1092 


C7D6 


26 


F0 


1093 


C7D8 


34 


06 


1094 


C7DA 


C0 


02 


1095 


C7DC 


63 


62 


1096 


C7DE 


26 


0C 


1097 


C7E0 


E0 


E0 


1098 


C7E2 


2A 


04 


1099 


C7E4 


E6 


E4 


1100 


C7E6 


63 


61 


1101 








1102 








1103 


C7E8 


32 


61 


1104 


C7EA 


20 


DC 


1105 








1106 


C7EC 


EB 


E0 


1107 


C7EE 


CI 


44 


1108 


C7F0 


25 


F6 


1109 


C7F2 


E6 


E4 


1110 


C7F4 


C0 


04 


1111 


C7F6 


20 


EE 


1112 


C7F8 


C6 


38 


1113 


C7FA 


7E 


AC 46 


1114 








1115 








1116 








1117 


C7FD 


32 


61 


1118 


C7FF 


IF 


98 


1119 


C801 


3A 




1120 


C802 


C6 


C0 


1121 


C804 


E7 


84 


1122 


C806 


39 




1123 








1124 








1125 








1126 








1127 








1128 








1129 








1130 


C807 


34 


02 


1131 


C809 


F6 


09 5B 


1132 


C80C 


5C 




1133 


C80D 


BD 


C7 49 


1134 


C810 


27 


17 


1135 


C812 


96 


EB 


1136 


C814 


Al 


01 


1137 


C816 


26 


11 


1138 


C818 


FE 


09 74 


1139 


C81B 


A6 


4D 


1140 


C81D 


Al 


02 


1141 


C81F 


26 


08 


1142 


C821 


A6 


00 


1143 


C823 


Al 


E4 


1144 


C825 


10 


26 DD F3 


1145 


C829 


5A 




1146 


C82A 


26 


El 


1147 


C82C 


35 


82 


1148 








1149 


C82E 


BD 


A5 A5 


1150 


C831 


0F 


6F 


1151 


C833 


5D 




1152 


C834 


10 


2F EC 12 



MAKE SURE RAM FILE ALLOCATION 



BSR 


LC755 


TST 


FAT0.X 


BNE 


LC79C 


CLR 


FAT1.X 


LEAU 


FATCON.X 


LDX 


#DBUF0 


STX 


DCBPT 


LDD 


#$1102 


STA 


DCTRK 


STB 


DCOPC 


LDB 


#$02 


STB 


DSEC 


JSR 


LD6F2 


LDB 


#GRANMX 


JMP 


LA59A 



TABLE DATA IS VALID 

POINT X TO FAT FOR THE CORRECT DRIVE NUMBER 

CHECK TO SEE IF ANY FILES ARE ACTIVE 

RETURN IF ANY FILES ACTIVE IN THIS FAT 

RESET FAT DATA VALID FLAG 

LOAD U WITH START OF GRANULE DATA BUFFER 

BUFFER FOR DISK TRANSFER 

PUT IN DSKCON PARAMETER 

DIRECTORY TRACK, READ SECTOR 

STORE IN DSKCON TRACK NUMBER 

STORE IN DSKCON OP CODE 

GET SECTOR NUMBER 2 (FILE ALLOCATION TABLE) 

STORE IN DSKCON PARAMETER 

GO READ SECTOR 

TRANSFER FILE ALLOCATION TABLE TO FILE ALLOC TABLE BUFFER 

MOVE B BYTES FROM (X) TO (U) 



FIND FIRST FREE GRANULE - ENTER WITH ACCB CONTAINING 
GRANULE FROM WHICH TO START SEARCHING. THE FOUND GRANULE 
IS MARKED BY STORING A $C0 IN THE GRANULE'S DATA BYTE 
TO INDICATE THAT IT IS THE LAST GRANULE IN THE FILE. 
RETURN WITH FIRST FREE GRANULE FOUND IN ACCA 



BSR 


LC755 


LEAX 


FATCON.X 


CLRA 




ANDB 


#$FE 


CLR 


,-S 


COM 


B,X 


BEQ 


LC7FD 


COM 


B,X 


INCA 




CMPA 


#GRANMX 


BHS 


LC7F8 


INCB 




BITB 


#$01 


BNE 


LC7C8 


PSHS 


B,A 


SUBB 


#$02 


COM 


$02, S 


BNE 


LC7EC 


SUBB 


,s+ 


BPL 


LC7E8 


LDB 


,s 


COM 


$01, s 


LEAS 


$01, s 


BRA 


LC7C8 


ADDB 


,s+ 


CMPB 


#GRANMX 


BLO 


LC7E8 


LDB 


,s 


SUBB 


#$04 


BRA 


LC7E6 


LDB 


#2*28 


JMP 


LAC46 



POINT X TO FILE ALLOC TABLE 

SKIP CONTROL BYTES 

USE ACCA AS GRANULE COUNTER 

MASK OFF BIT ZERO OF SEARCH GRANULE 

INITIALIZE AND SAVE A BYTE ON STACK (DIRECTION FLAG) 

IS THIS GRANULE FREE? ($FF=FREE) 

BRANCH IF IT IS 

RESTORE GRANULE DATA 

ADD ONE TO GRANULE COUNTER 

GRANMX GEANULES PER DISK 

BRANCH IF ALL GRANULES CHECKED (DISK FULL) 

INCR TO NEXT GRANULE 

IS BIT SET? 

BRANCH IF ODD GRANULE NUMBER (SAME TRACK) 

SAVE GRANULE COUNTER AND CURRENT GRANULE NUMBER 

SUBTRACT ONE TRACK (2 GRANULES) 

COMPLEMENT DIRECTION FLAG 

BRANCH EVERY OTHER TIME 

SUBTRACT THE GRANULE COUNTER FROM THE CURRENT GRANULE NUMBER 

BRANCH IF LOWER BOUND NOT EXCEEDED 

RESTORE CURRENT GRANULE NUMBER IF LOWER BOUND EXCEEDED 

* COMPLEMENT FLAG - IF GRANULE NUMBER HAS EXCEEDED 

* BOUNDS ON EITHER THE HI OR LO SIDE, FORCE IT TO GO IN 

* THE DIRECTION OPPOSITE THE EXCEEDED BOUND 
CLEAN UP STACK 

CHECK FOR ANOTHER FREE GRANULE 

ADD THE GRANULE COUNTER TO THE CURRENT GRANULE NUMBER 

GRANMX GRANULES PER DISK 

BRANCH IF UPPER BOUND NOT EXCEEDED 

* RESTORE CURRENT GRANULE COUNT AND GO TWICE 

* AS FAR AS USUAL IN OPPOSITE DIRECTION IF UPPER BOUND EXCEEDED 
KEEP SEARCHING 

'DISK FULL' ERROR 
JUMP TO ERROR HANDLER 



POINT X TO FIRST FREE GRANULE POSITION IN THE FILE ALLOCATION 
TABLE AND MARK THE POSITION WITH A LAST GRANULE IN FILE MARKER 



LEAS 


$01, S 


TFR 


B,A 


LDB 


#$C0 


STB 


,x 


RTS 





CLEAR UP STACK - REMOVE DIRECTION FLAG 

GRANULE NUMBER TO ACCA 

POINT X TO FIRST FOUND GRANULE 

LAST GRANULE FLAG 

MARK THE FIRST FOUND GRANULE AS THE LAST GRANULE 



CHECK ALL ACTIVE FILES TO MAKE SURE A FILE IS NOT ALREADY OPEN - TO BE OPEN 

A FILE BUFFER MUST MATCH THE DRIVE NUMBER AND FIRST GRANULE NUMBER 

IN RAM DIRECTORY ENTRY AND THE FCB TYPE MUST NOT MATCH THE FILE TYPE IN ACCA 

AN 'AO' ERROR WILL NOT BE GENERATED IF A FILE IS BEING OPENED FOR 

THE SAME MODE THAT IT HAS ALREADY BEEN OPENED UNDER. 



SAVE FILE TYPE ON STACK 
NUMBER OF CURRENTLY OPEN FILES 
ADD ONE MORE TO FILE COUNTER 
POINT X TO FCB OF THIS FILE 
BRANCH IF BUFFER NOT BEING USED 

* GET DRIVE NUMBER AND CHECK TO SEE IF IT 

* MATCHES THE DRIVE NUMBER FOR THIS BUFFER 
FILE EXISTS ON ANOTHER DRIVE 

GET RAM DIRECTORY AREA 

GET FIRST GRANULE IN FILE 

DOES IT MATCH THIS FILE BUFFER? 

NO 

GET FILE TYPE OF THIS BUFFER 

DOES IT MATCH THE ONE WE ARE LOOKING FOR? 

'FILE ALREADY OPEN' ERROR IF NOT 

DECR FILE COUNTER 

BRANCH IF HAVEN'T CHECKED ALL ACTIVE FILES 

RESTORE FILE TYPE AND RETURN 

EVALUATE AN EXPRESSION (DEVICE NUMBER) 

SET DEVICE NUMBER TO SCREEN 

TEST NEW DEVICE NUMBER 

'FC' ERROR IF DEVICE NUMBER NOT A DISK FILE 



PSHS 


A 


LDB 


FCBACT 


INCB 




JSR 


LC749 


BEQ 


LC829 


LDA 


DCDRV 


CMPA 


FCBDRV.X 


BNE 


LC829 


LDU 


V974 


LDA 


DIRGRAN,U 


CMPA 


FCBFGR.X 


BNE 


LC829 


LDA 


FCBTYP.X 


CMPA 


,s 


LBNE 


LA61C 


DECB 




BNE 


LC80D 


PULS 


A, PC 


JSR 


LA5A5 


CLR 


DEVNUM 


LBLE 


LB44A 



DISK BASIC UNRAVELLED II 
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ORIGIN:SPECTRAL ASSOC 
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1153 


C838 


BD 


C7 


49 


1154 


C83B 


A6 


00 




1155 


C83D 


10 


27 


DB BA 


1156 


C841 


81 


40 




1157 


C843 


27 


CI 




1158 


C845 


7E 


A6 


16 


1159 










1160 










1161 


C848 


86 


10 




1162 


C84A 


8C 






1163 










1164 










1165 


C84B 


86 


20 




1166 


C84D 


0D 


6F 




1167 


C84F 


2F 


B5 




1168 


C851 


AF 


E4 




1169 










1170 


C853 


BD 


C7 


44 


1171 


C856 


34 


06 




1172 


C858 


A6 


00 




1173 


C85A 


10 


27 


DB 9D 


1174 


C85E 


81 


40 




1175 


C860 


27 


06 




1176 


C862 


Al 


E4 




1177 


C864 


26 


DF 




1178 


C866 


35 


96 




1179 










1180 


C868 


AE 


64 




1181 


C86A 


8C 


B0 


0C 


1182 


C86D 


26 


F7 




1183 


C86F 


BD 


B2 


6D 


1184 


C872 


81 


22 




1185 


C874 


26 


0B 




1186 


C876 


BD 


B2 


44 


1187 


C879 


BD 


B6 


57 


1188 


C87C 


C6 


3B 




1189 


C87E 


BD 


B2 


6F 


1190 


C881 


8E 


B0 


IE 


1191 


C884 


AF 


64 




1192 


C886 


35 


96 




1193 










1194 










1195 


C888 


2F 


25 




1196 


C88A 


Fl 


09 


5B 


1197 


C88D 


10 


22 


DD 8E 


1198 


C891 


35 


90 




1199 










1200 










1201 


C893 


0D 


6F 




1202 


C895 


2F 


18 




1203 


C897 


32 


62 




1204 


C899 


34 


16 




1205 


C89B 


0F 


6E 




1206 


C89D 


BD 


C7 


44 


1207 


C8A0 


E6 


06 




1208 


C8A2 


4F 






1209 


C8A3 


8E 


10 


00 


1210 


C8A6 


7E 


A3 


7C 


1211 










1212 










1213 


C8A9 


0D 


6F 




1214 


C8AB 


2F 


02 




1215 


C8AD 


32 


62 




1216 


C8AF 


39 






1217 










1218 










1219 


C8B0 


32 


62 




1220 


C8B2 


1C 


AF 




1221 


C8B4 


7F 


FF 


02 


1222 


C8B7 


B6 


FF 


00 


1223 


C8BA 


43 






1224 


C8BB 


84 


7F 




1225 


C8BD 


27 


03 




1226 


C8BF 


BD 


AD 


EB 


1227 


C8C2 


9E 


A6 




1228 


C8C4 


9F 


2F 




1229 


C8C6 


A6 


80 




1230 


C8C8 


27 


07 




1231 


C8CA 


81 


3A 




1232 


C8CC 


27 


25 




1233 


C8CE 


7E 


B2 


77 


1234 


C8D1 


A6 


81 




1235 


C8D3 


97 


00 




1236 


C8D5 


26 


03 




1237 


C8D7 


7E 


AE 


15 


1238 


C8DA 


EC 


80 




1239 


C8DC 


DD 


68 




1240 


C8DE 


9F 


A6 




1241 


C8E0 


96 


AF 




1242 


C8E2 


27 


0F 




1243 


C8E4 


86 


5B 




1244 


C8E6 


BD 


A2 


82 


1245 


C8E9 


96 


68 




1246 


C8EB 


BD 


BD 


CC 


1247 


C8EE 


86 


5D 




1248 


C8F0 


BD 


A2 


82 



JSR LC749 

LDA FCBTYP.X 

LBEQ LA3FB 

CMPA #RANFIL 

BED LC806 

LC856 JMP LA616 

* INPUT DEVICE NUMBER CHECK RAM HOOK 
DVEC5 LDA #INPFIL 

LC84A CMPX #8620 

* PRINT DEVICE NUMBER CHECK RAM HOOK 



DVEC6 


LDA 


#OUTFIL 




TST 


DEVNUM 




BLE 


LC806 




STX 


,s 


* 








JSR 


LC744 




PSHS 


B,A 




LDA 


FCBTYP.X 




LBEO 


LA3FB 




CMPA 


#RANFIL 




BEQ 


LC868 




CMPA 


,s 




BNE 


LC845 


LC866 


PULS 


A,B,X,PC 


LC868 


LDX 


$04, S 




CMPX 


#LB00C 




BNE 


LC866 




JSR 


SYNCOMMA 




CMPA 


#"" 




BNE 


LC881 




JSR 


LB244 




JSR 


LB657 




LDB 


#' ;' 




JSR 


LB26F 


LC881 


LDX 


#LB01E 




STX 


$04, S 




PULS 


A,B,X,PC 



* DEVICE NUMBER VALIDITY CHECK RAM HOOK 
DVEC1 BLE LC8AF 

CMPB FCBACT 
LBHI LA61F 
PULS X,PC 

* SET PRINT PARAMETERS RAM HOOK 



TST 


DEVNUM 


BLE 


LC8AF 


LEAS 


$02, S 


PSHS 


X,B,A 


CLR 


PRTDEV 


JSR 


LC744 


LDB 


FCBPOS.X 


CLRA 




LDX 


#$1000 


JMP 


LA37C 



* BREAK CHECK RAM HOOK 

DVEC11 TST DEVNUM 

BLE LC8AF 

LEAS $02, S 
LC8AF RTS 



* COMMAND INTE 
DVEC20 LEAS 
LC8B2 ANDCC 
CLR 

LDA 

COMA 

ANDA 

BEQ 

JSR 

LC8C2 LDX 
STX 
LDA 
BEQ 
CMPA 
BEQ 
JMP 

LC8D1 LDA 
STA 
BNE 
JMP 

LC8DA LDD 
STD 
STX 
LDA 
BEQ 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 



RPRETATION RAM HOOK 

$02, S 

#$AF 

PIA0+2 

PIA0 

#$7F 

LC8C2 

LADEB 

CHARAD 

TINPTR 

,X+ 

LC8D1 

#' : ' 

LC8F3 

LB277 

,X++ 

ENDFLAG 

LC8DA 

LAE15 

,X+ 

CURLIN 

CHARAD 

TRCFLG 

LC8F3 

#'<' 

LA282 

CURLIN 

LBDCC 

#'>' 

LA282 



POINT X TO FCB 

TEST IF BUFFER IS IN USE 

'FILE NOT OPEN' ERROR 

DIRECT/RANDOM FILE? 

RETURN IF RANDOM 

BAD FILE MODE ERROR IF NOT RANDOM 



INPUT FILE TYPE 
SKIP TWO BYTES 



OUTPUT FILE TYPE 

* CHECK DEVICE NUMBER AND RETURN IF 

* NOT A DISK FILE 

= REPLACE SUBROUTINE RETURN ADDRESS WITH X REGISTER - 

= THIS IS THE SAME AS LEAS 2,S AND PSHS X 

POINT X TO FCB 

SAVE ACCB AND FILE TYPE ON STACK 

GET FILE TYPE 

■FILE NOT OPEN' ERROR 

RANDOM FILE? 

BRANCH IF RANDOM FILE 

IS THIS FCB OF THE PROPER TYPE? 

'FILE MODE' ERROR IF NOT 

RESTORE ACCB.X.ACCA (FILE TYPE) AND RETURN 

* GET CALLING ADDRESS FROM THE STACK AND 

* RETURN UNLESS COMING FROM 

* BASIC'S 'INPUT' STATEMENT 
SYNTAX CHECK FOR A COMMA 
CHECK FOR A DOUBLE QUOTE 

RETURN TO BASIC'S 'INPUT' COMMAND 

STRIP PROMPT STRING FROM BASIC AND PUT IT ON THE STRING STACK 

PURGE THE STRING PUT ON THE STRING STACK 

SEMICOLON 

DO A SYNTAX CHECK FOR SEMICOLON 

GET MODIFIED REENTRY POINT INTO BASIC 

AND PUT IT INTO THE RETURN ADDRESS ON THE STACK 

RETURN TO BASIC 



RETURN IF NOT A DISK FILE 

COMPARE DEVICE NUMBER TO HIGHEST POSSIBLE 

'DEVICE NUMBER' ERROR IF TOO BIG 

RETURN 



*CHECK DEVICE NUMBER AND 

♦RETURN IF NOT DISK FILE 

PURGE RETURN ADDRESS OFF OF THE STACK 

SAVE REGISTERS 

SET PRINT DEVICE NUMBER TO NON-CASSETTE 

POINT X TO FCB 

GET PRINT POSITION 

PRINT WIDTH (256) 

TAB FIELD WIDTH AND TAB ZONE 

SAVE THE PRINT PARAMETERS 



* CHECK DEVICE NUMBER AND RETURN 

* IF NOT A DISK FILE 

= PURGE RETURN ADDRESS OFF OF THE STACK - DON' 
= DO A BREAK CHECK IF DISK FILE 



PURGE RETURN ADDRESS OFF OF THE STACK 

ENABLE IRQ S FIRQ 

STROBE ALL KEYS (COLUMN STROBE) 

READ KEYBOARD ROWS 

INVERT KEYBOARD ROW DATA 

MASK OFF JOYSTICK INPUT BIT 

BRANCH IF NO KEY DOWN 

GO DO A BREAK CHECK IF A KEY IS DOWN 

GET INPUT POINTER INTO X 

TEMP SAVE IT 

SEARCH FOR THE END OF CURRENT LINE 

BRANCH IF END OF LINE 

CHECK FOR END OF SUB LINE, TOO 

BRANCH IF END OF SUB LINE 

'SYNTAX' ERROR IF NOT END OF LINE 

*GET MS BYTE OF ADDRESS OF NEXT BASIC LINE 

*AND SAVE IT IN CURLIN 

BRANCH IF NOT END OF PROGRAM 

GO 'STOP' THE SYSTEM 

*GET LINE NUMBER OF THIS LINE AND 

*SAVE IT IN CURLIN 

RESET BASIC'S INPUT POINTER 

* CHECK THE TRACE FLAG AND 

* BRANCH IF TRACE OFF 

< LEFT DELIMITER OF TRON 

SEND CHARACTER TO CONSOLE OUT 

GET NUMBER OF CURRENT LINE NUMBER 

CONVERT ACCD TO DECIMAL & PRINT IT ON SCREEN 

> RIGHT DELIMITER OF TRON 

SEND A CHARACTER TO CONSOLE OUT 



DISK BASIC UNRAVELLED II 
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DISASSEMBLY OF DISK BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/26/1999 WALTER K ZYDHEK 



1249 


C8F3 


9D 


9F 




LC8F3 


JSR 


GETNCH 


1250 


C8F5 


IF 


A9 






TFR 


CC,B 


1251 


C8F7 


81 


98 






CMPA 


#$98 


1252 


C8F9 


26 


03 






BNE 


LC8FE 


1253 


C8FB 


7E 


83 


16 




JMP 


L8316 


1254 


C8FE 


81 


97 




LC8FE 


CMPA 


#$97 


1255 


C900 


26 


03 






BNE 


LC905 


1256 


C902 


7E 


83 


11 




JMP 


L8311 


1257 


C905 


IF 


9A 




LC905 


TFR 


B,CC 


1258 


C907 


BD 


AD 


C6 




JSR 


LADC6 


1259 


C90A 


20 


A6 






BRA 


LC8B2 


1260 
















1261 










* EOF 


RAM HOOK 


1262 


C90C 


32 


62 




DVEC14 


LEAS 


$02, S 


1263 


C90E 


96 


6F 






LDA 


DEVNUM 


1264 


C910 


34 


02 






PSHS 


A 


1265 


C912 


BD 


A5 


AE 




JSR 


LA5AE 


1266 


C915 


BD 


A3 


ED 




JSR 


LA3ED 


1267 


C918 


0D 


6F 






TST 


DEVNUM 


1268 


C91A 


10 


2F 


DC BC 




LBLE 


LA5DA 


1269 


C91E 


BD 


C7 


44 




JSR 


LC744 


1270 


C921 


E6 


00 






LDB 


FCBTYP.X 


1271 


C923 


CI 


40 






CMPB 


#RANFIL 


1272 


C925 


10 


27 


DC ED 




LBEQ 


LA616 


1273 


C929 


5F 








CLRB 




1274 


C92A 


A6 


88 


10 




LDA 


FCBCFL.X 


1275 


C92D 


26 


03 






BNE 


LC932 


1276 


C92F 


E6 


88 


17 




LDB 


FCBDFL.X 


1277 


C932 


7E 


A5 


E4 


LC932 


JMP 


LA5E4 


1278 
















1279 










* GET 


FILENAME7EXTENSION 


1280 


C935 


8E 


C2 


A9 


LC935 


LDX 


#DEFEXT 


1281 


C938 


6F 


E2 






CLR 


,-s 


1282 


C93A 


B6 


09 


5A 




LDA 


DEFDRV 


1283 


C93D 


97 


EB 






STA 


DCDRV 


1284 


C93F 


CE 


09 


4C 




LDU 


#DNAMBF 


1285 


C942 


CC 


20 


08 




LDD 


#$2008 


1286 


C945 


A7 


C0 




LC945 


STA 


,0+ 


1287 


C947 


5A 








DECB 




1288 


C948 


26 


FB 






BNE 


LC945 


1289 


C94A 


C6 


03 






LDB 


#$03 


1290 


C94C 


BD 


A5 


9A 




JSR 


LA59A 


1291 


C94F 


BD 


87 


48 




JSR 


L8748 


1292 


C952 


33 


84 






LEAU 


,x 


1293 


C954 


CI 


02 






CMPB 


#$02 


1294 


C956 


25 


12 






BLO 


LC96A 


1295 


C958 


A6 


41 






LDA 


$01, U 


1296 


C95A 


81 


3A 






CMPA 


#' : ' 


1297 


C95C 


26 


0C 






BNE 


LC96A 


1298 


C95E 


A6 


C4 






LDA 


,0 


1299 


C960 


81 


30 






CMPA 


#'0' 


1300 


C962 


25 


06 






BLO 


LC96A 


1301 


C964 


81 


33 






CMPA 


#'3' 


1302 


C966 


22 


02 






BHI 


LC96A 


1303 


C968 


8D 


33 






BSR 


LC99D 


1304 


C96A 


8E 


09 


4C 


LC96A 


LDX 


#DNAMBF 


1305 


C96D 


5C 








INCB 




1306 


C96E 


5A 






LC96E 


DECB 




1307 


C96F 


26 


0C 






BNE 


LC97D 


1308 


C971 


32 


61 






LEAS 


$01, S 


1309 


C973 


8C 


09 


4C 


LC973 


CMPX 


#DNAMBF 


1310 


C976 


26 


67 






BNE 


LC9DF 


1311 


C978 


C6 


3E 




LC978 


LDB 


#2*31 


1312 


C97A 


7E 


AC 


46 




JMP 


LAC46 


1313 


C97D 


A6 


C0 




LC97D 


LDA 


,0+ 


1314 


C97F 


81 


2E 






CMPA 


#' . ' 


1315 


C981 


27 


2D 






BEQ 


LC9B0 


1316 


C983 


81 


2F 






CMPA 


#'/' 


1317 


C985 


27 


29 






BEQ 


LC9B0 


1318 


C987 


81 


3A 






CMPA 


#' : ' 


1319 


C989 


27 


09 






BEQ 


LC994 


1320 


C98B 


8C 


09 


54 




CMPX 


#DEXTBF 


1321 


C98E 


27 


E8 






BEQ 


LC978 


1322 


C990 


8D 


3E 






BSR 


LC9D0 


1323 


C992 


20 


DA 






BRA 


LC96E 


1324 


C994 


8D 


DD 




LC994 


BSR 


LC973 


1325 


C996 


8D 


05 






BSR 


LC99D 


1326 


C998 


5D 








TSTB 




1327 


C999 


26 


DD 






BNE 


LC978 


1328 


C99B 


35 


82 




LC99B 


PULS 


A, PC 


1329 
















1330 










* GRAB 


DRIVE 1 


DUMBER 


1331 


C99D 


63 


62 




LC99D 


COM 


$02, S 


1332 


C99F 


27 


D7 






BEQ 


LC978 


1333 


C9A1 


A6 


CI 






LDA 


,U++ 


1334 


C9A3 


C0 


02 






SUBB 


#$02 


1335 


C9A5 


80 


30 






SUBA 


#'0' 


1336 


C9A7 


25 


CF 






BLO 


LC978 


1337 


C9A9 


81 


03 






CMPA 


#$03 


1338 


C9AB 


22 


CB 






BHI 


LC978 


1339 


C9AD 


97 


EB 






STA 


DCDRV 


1340 


C9AF 


39 








RTS 




1341 
















1342 










* GRAB 


EXTENSION 


1343 


C9B0 


8D 


CI 




LC9B0 


BSR 


LC973 


1344 


C9B2 


8E 


09 


57 




LDX 


#DFLTYP 



GET NEXT CHARACTER FROM BASIC 

SAVE STATUS REGISTER IN ACCB 

CSAVE TOKEN? 

NO 

GO CHECK FOR CSAVEM 

CLOAD TOKEN? 

NO 

JUMP TO EXBAS' CLOAD ROUTINE 

RESTORE STATUS REGISTER 

LOOP THROUGH BASIC'S MAIN INTERPRETATION LOOP 



PURGE RETURN ADDRESS OFF OF THE STACK 

* GET DEVICE NUMBER AND SAVE 

* IT ON THE STACK 

STRIP DEVICE NUMBER OFF OF INPUT LINE 
VERIFY THAT THE FILE TYPE WAS 'INPUT' 

* CHECK DEVICE NUMBER AND 

* BRANCH BACK TO BASIC'S EOF IF NOT DISK FILE 
POINT X TO FCB 

GET FILE TYPE 

RANDOM FILE? 

'FM' BAD FILE MODE ERROR IF RANDOM 

FILE NOT EMPTY FLAG - SET TO NOT EMPTY 

*CHECK THE CACHE FLAG - BRANCH IF 

*THERE IS A CHARACTER WHICH HAS BEEN CACHED 

GET SEQUENTIAL INPUT FILE STATUS 

LINK BACK TO BASIC'S EOF STATEMENT 

DRIVE NUMBER FROM BASIC 

POINT TO ' ' BLANK (DEFAULT) EXTENSION 
CLEAR A BYTE ON STACK FOR USE AS A DRIVES FLAG 

* GET DEFAULT DISK NUMBER 

* STORE IN DSKCON PARAMETER 
DISK FILENAME BUFFER 

STORE 8 BLANKS IN RAM (DEFAULT FILE NAME) 

STORE A BLANK IN FILE NAME 

DECREMENT COUNTER 

BRANCH IF NOT DONE 

3 BYTES IN EXTENSION 

MOVE B BYTES FROM (X) TO (U) 

EVALUATE A STRING EXPRESSION 

POINT U TO START OF STRING 

* CHECK LENGTH OF STRING AND 

* BRANCH IF < 2 

= GET 2ND CHARACTER IN STRING AND 

= CHECK FOR COLON 

BRANCH IF NO DRIVE NUMBER 

* GET 1ST CHARACTER 

* IN STRING AND 

* CHECK TO SEE 

* IF IT IS IN 

* THE RANGE 0-3 
GET DRIVE NUMBER 

POINT X TO FILE NAME BUFFER 

COMPENSATE FOR DECB BELOW 

DECREMENT STRING LENGTH 

BRANCH IF MORE CHARACTERS IN STRING 

CLEAN UP STACK - REMOVE DRIVE FLAG 

POINTER STILL AT START OF BUFFER? 

RETURN IF NOT 

'BAD FILENAME' ERROR IF NULL FILENAME 

ERROR HANDLER 

GET A CHARACTER FROM STRING 

LOOK FOR PERIOD? 

YES 

SLASH? 

YES 

COLON? 

YES 

COMPARE POINTER TO END OF FILENAME BUFFER 

'BAD FILENAME' ERROR - FILENAME TOO LONG 

PUT A CHARACTER IN FILENAME 

GET ANOTHER CHARACTER FROM STRING 

'BAD FILENAME' ERROR IF NO FILENAME YET 

GET DRIVE NUMBER 

* CHECK LENGTH OF STRING 

* "BAD FILENAME' ERROR IF MORE CHARACTERS LEFT 
REMOVE DRIVES FLAG FROM STACK AND RETURN 



TOGGLE DRIVE FLAG 

'BAD FILENAME' ERROR IF DRIVE NUMBER DEFINED TWICE 

ASCII VALUE OF DRIVE NUMBER TO ACCA 

DECREMENT STRING LENGTH BY 2 FOR DRIVE (:X) 

SUBTRACT ASCII BIAS 

DRIVE NUMBER TOO LOW - 'BAD FILENAME' ERROR 

MAX OF 4 DRIVES 

DRIVE NUMBER TOO HIGH - 'BAD FILENAME' ERROR 

STORE IN DSKCON DRIVE NUMBER 



'BAD FILENAME' ERROR IF NO FILENAME YET 
POINT X TO END OF EXTENSION BUFFER 
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1345 


C9B5 


86 


20 




1346 


C9B7 


A7 


82 




1347 


C9B9 


8C 


09 


54 


1348 


C9BC 


26 


F9 




1349 


C9BE 


5A 






1350 


C9BF 


27 


DA 




1351 


C9C1 


A6 


C0 




1352 


C9C3 


81 


3A 




1353 


C9C5 


27 


CD 




1354 


C9C7 


8C 


09 


57 


1355 


C9CA 


27 


AC 




1356 


C9CC 


8D 


02 




1357 


C9CE 


20 


EE 




1358 










1359 










1360 


C9D0 


A7 


80 




1361 


C9D2 


27 


A4 




1362 


C9D4 


81 


2E 




1363 


C9D6 


27 


A0 




1364 


C9D8 


81 


2F 




1365 


C9DA 


27 


9C 




1366 


C9DC 


4C 






1367 


C9DD 


27 


99 




1368 


C9DF 


39 






1369 










1370 










1371 


C9E0 


81 


4D 




1372 


C9E2 


10 


27 


05 82 


1373 


C9E6 


8D 


4B 




1374 


C9E8 


9E 


8A 




1375 


C9EA 


BF 


09 


57 


1376 


C9ED 


9D 


A5 




1377 


C9EF 


27 


21 




1378 


C9F1 


BD 


B2 


6D 


1379 


C9F4 


C6 


41 




1380 


C9F6 


BD 


B2 


6F 


1381 


C9F9 


26 


E4 




1382 


C9FB 


73 


09 


58 


1383 


C9FE 


8D 


04 




1384 


CA00 


4F 






1385 


CA01 


7E 


B7 


64 


1386 










1387 










1388 










1389 


CA04 


86 


4F 




1390 


CA06 


8C 






1391 


CA07 


86 


49 




1392 


CA09 


F6 


09 


5B 


1393 


CA0C 


5C 






1394 


CA0D 


D7 


6F 




1395 


CA0F 


7E 


C4 


8D 


1396 










1397 










1398 


CA12 


8D 


F0 




1399 


CA14 


86 


FF 




1400 


CA16 


BD 


CC 


24 


1401 


CA19 


DC 


IB 




1402 


CA1B 


93 


19 




1403 


CA1D 


BD 


CC 


24 


1404 


CA20 


IF 


98 




1405 


CA22 


BD 


CC 


24 


1406 


CA25 


9E 


19 




1407 


CA27 


A6 


80 




1408 


CA29 


BD 


CC 


24 


1409 


CA2C 


9C 


IB 




1410 


CA2E 


26 


F7 




1411 


CA30 


7E 


A4 


2D 


1412 


CA33 


8E 


C2 


A6 


1413 


CA36 


7E 


C9 


38 


1414 










1415 










1416 


CA39 


4F 






1417 


CA3A 


C6 


FF 




1418 


CA3C 


20 


12 




1419 










1420 










1421 


CA3E 


81 


22 




1422 


CA40 


10 


26 


B8 58 


1423 


CA44 


86 


02 




1424 


CA46 


20 


07 




1425 










1426 










1427 


CA48 


81 


4D 




1428 


CA4A 


10 


27 


05 73 


1429 


CA4E 


4F 






1430 


CA4F 


5F 






1431 


CA50 


B7 


09 


59 


1432 


CA53 


F7 


09 


5E 


1433 


CA56 


8D 


DB 




1434 


CA58 


9D 


A5 




1435 


CA5A 


27 


10 




1436 


CA5C 


BD 


B2 


6D 


1437 


CA5F 


C6 


52 




1438 


CA61 


BD 


B2 


6F 


1439 


CA64 


BD 


A5 


C7 


1440 


CA67 


86 


03 





LDA 


#SPACE 


STA 


,-x 


CMPX 


#DEXTBF 


BNE 


LC9B7 


DECB 




BEQ 


LC99B 


LDA 


,u+ 


CMPA 


#' : ' 


BEQ 


LC994 


CMPX 


#DFLTYP 


BEQ 


LC978 


BSR 


LC9D0 


BRA 


LC9BE 


CHARACTER INI 


STA 


,x+ 


BEQ 


LC978 


CMPA 


#' . ' 


BEQ 


LC978 


CMPA 


#'/' 


BEQ 


LC978 


INCA 




BEQ 


LC978 


RTS 





BLANK 

* FILL EXTENSION WITH 

* BLANKS (DEFAULT) 
DECREMENT STRING COUNTER 
RETURN IF ZERO 

GET A CHARACTER FROM STRING 
♦CHECK FOR DRIVE SEPARATOR 
* 

=CHECK FOR END OF ESTENSION RAM BUFFER S 
= 'BAD FILENAME' ERROR IF EXTENSION TOO LONG 
PUT A CHARACTER IN EXTENSION BUFFER 
GET ANOTHER EXTENSION CHARACTER 



STORE CHARACTER IN FILENAME BUFFER 



'BAD FILENAME' 

PERIOD? 

'BAD FILENAME' 

SLASH? 

'BAD FILENAME' 

CHECK FOR $FF 

'BAD FILENAME' 



ERROR; ZEROES ARE ILLEGAL 



ERROR IF PERIOD 



ERROR IF SLASH 



ERROR IF $FF 



* SAVE COMMAND 
SAVE CMPA #'M' 



LBEQ 


LCF68 


BSR 


LCA33 


LDX 


ZERO 


STX 


DFLTYP 


JSR 


GETCCH 


BEQ 


LCA12 


JSR 


SYNCOMMA 


LDB 


#'A' 


JSR 


LB26F 


BNE 


LC9DF 


COM 


DASCFL 


BSR 


LCA04 


CLRA 




JMP 


LIST 



OPEN A SEQUENTIAL FILE 
FCB LOCATED AT THE TOP 



LCA04 


LDA 


#'0' 


LCA06 


CMPX 


#$8649 


LCA07 


LDA 


#T 




LDB 


FCBACT 




INCB 






STB 


DEVNUM 




JMP 


LC48D 


* SAVE 


A CRUNCHED FILE 


* FILES 


: BYTE 


1 = $FF, 


LCA12 


BSR 


LCA04 




LDA 


#$FF 




JSR 


LCC24 




LDD 


VARTAB 




SUBD 


TXTTAB 




JSR 


LCC24 




TFR 


B,A 




JSR 


LCC24 




LDX 


TXTTAB 


LCA27 


LDA 


,x+ 




JSR 


LCC24 




CMPX 


VARTAB 




BNE 


LCA27 




JMP 


LA42D 




LDX 


#BASEXT 




JMP 


LC938 


* MERGE 


COMMAND 


MERGE 


CLRA 






LDB 


#$FF 




BRA 


LCA50 


* RUN RAM VECTOR 


DVEC18 


CMPA 


#"" 




LBNE 


XVEC18 




LDA 


#$02 




BRA 


LCA4F 


* LOAD 


COMMAND 


LOAD 


CMPA 


#'M' 




LBEQ 


LCFC1 




CLRA 




LCA4F 


CLRB 




LCA50 


STA 


DRUNFL 




STB 


DMRGFL 




BSR 


LCA33 




JSR 


GETCCH 




BEQ 


LCA6C 




JSR 


SYNCOMMA 




LDB 


#'R' 




JSR 


LB26F 




JSR 


LA5C7 




LDA 


#$03 



♦BRANCH IF SAVEM 

GO GET FILENAME, ETC. FROM BASIC 

ZERO OUT X REG 

SET FILE TYPE AND ASCII FLAG TO ZERO 

GET CURRENT INPUT CHARACTER FROM BASIC 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA 

♦ASCII FILE? 

♦SYNTAX CHECK ON CONTENTS OF ACCB 

RETURN IF NO MORE CHARACTERS ON LINE 

SET CRUNCHED7ASCII FLAG TO ASCII 

OPEN A SEQUENTIAL FILE FOR OUTPUT 

SET ZERO FLAG - CAUSE ENTIRE FILE TO BE LISTED 

'LIST' THE FILE TO CONSOLE OUT 

FOR INPUT/OUTPUT - USE THE SYSTEM 
OF FCBS 

OUTPUT FILE TYPE 

SKIP TWO BYTES 

INPUT FILE TYPE 

GET NUMBER OF RESERVED FILES CURRENTLY RESERVED 

ADD ONE - USE ONE ABOVE HIGHEST RESERVED FCB 

SAVE IT IN DEVICE NUMBER 

OPEN A FILE S INITIALIZE FCB 
A PREAMBLE OF THREE BYTES WILL PRECEED CRUNCHED 
3 = LENGTH OF BASIC PROGRAM 

OPEN A SEQUENTIAL FILE FOR OUTPUT 

BASIC FILE FLAG 

CONSOLE OUT 

LOAD ACCD WITH START OF VARIABLES 

SUBTRACT START OF BASIC 

CONSOLE OUT FILE LENGTH MS BYTE 

PULL LS BYTE INTO ACCA 

CONSOLE OUT FILE LENGTH LS BYTE 

POINT X TO START OF BASIC 

GET BYTE FROM BASIC 

SEND TO CONSOLE OUT 

COMPARE TO END OF BASIC 

KEEP GOING IF NOT AT END 

CLOSE FILE 

POINT TO 'BAS' EXTENSION (DEFAULT) 

GET FILENAME. EXT FROM BASIC 



RUN FLAG (0 = DON'T RUN) 
MERGE FLAG ($FF = MERGE) 
GO LOAD THE FILE 



CHECK FOR FILENAME DELIMITER (DOUBLE QUOTE) 
NONE - JUMP TO EXBAS RUN RAM HOOK 
RUN FLAG - DON'T CLOSE ALL FILES BEFORE RUN 
LOAD THE FILE 



♦BRANCH IF LOADM 

RUN FLAG = ZERO (DON'T RUN) 

CLEAR MERGE FLAG 

RUN FLAG (0 = DON'T RUN, 2 = RUN) 

MERGE FLAG (0 = NO MERGE, $FF = MERGE) 

GO GET FILENAME, ETC. FROM BASIC 

GET CURRENT INPUT CHAR 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA 

♦IS NEXT CHAR 'R'? RUN AFTER LOAD 
SYNTAX ERROR IF ANY MORE CHARS ON LINE 
♦SET FLAGS TO RUN AND CLOSE ALL FILES 



DISK BASIC UNRAVELLED II 



APPENDIX B 
DISASSEMBLY OF DISK BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/26/1999 WALTER K ZYDHEK 



1441 


CA69 


B7 


09 


59 


1442 


CA6C 


8D 


99 




1443 


CA6E 


B6 


09 


58 


1444 


CA71 


27 


0B 




1445 


CA73 


7D 


09 


5E 


1446 


CA76 


26 


03 




1447 


CA78 


BD 


AD 


19 


1448 


CA7B 


7E 


AC 


7C 


1449 










1450 










1451 


CA7E 


B6 


09 


57 


1452 


CA81 


BA 


09 


5E 


1453 


CA84 


10 


26 


DB 8E 


1454 


CA88 


BD 


AD 


19 


1455 


CA8B 


73 


09 


5D 


1456 










1457 


CA8E 


BD 


CD 


BC 


1458 


CA91 


BD 


CD 


BC 


1459 


CA94 


34 


02 




1460 


CA96 


BD 


CD 


BC 


1461 


CA99 


IF 


89 




1462 


CA9B 


35 


02 




1463 


CA9D 


D3 


19 




1464 


CA9F 


BD 


AC 


37 


1465 


CAA2 


9E 


19 




1466 


CAA4 


BD 


C5 


C4 


1467 


CAA7 


D6 


70 




1468 


CAA9 


26 


04 




1469 


CAAB 


A7 


80 




1470 


CAAD 


20 


F5 




1471 










1472 


CAAF 


7F 


09 


5D 


1473 


CAB2 


9F 


IB 




1474 










1475 


CAB4 


C6 


03 




1476 


CAB6 


A6 


82 




1477 


CAB8 


26 


03 




1478 


CABA 


5A 






1479 


CABB 


26 


F9 




1480 


CABD 


9E 


IB 




1481 


CABF 


9F 


IB 




1482 


CAC1 


6F 


80 




1483 


CAC3 


5A 






1484 


CAC4 


2A 


F9 




1485 


CAC6 


BD 


A4 


2D 


1486 


CAC9 


BD 


AD 


21 


1487 


CACC 


BD 


82 


9C 


1488 


CACF 


BD 


AC 


EF 


1489 


CAD2 


77 


09 


59 


1490 


CAD5 


25 


03 




1491 


CAD7 


BD 


A4 


26 


1492 


CADA 


77 


09 


59 


1493 


CADD 


10 


25 


E2 BD 


1494 


CAE1 


7E 


AC 


73 


1495 










1496 


CAE4 


0D 


6F 




1497 


CAE6 


2E 


DE 




1498 


CAE8 


39 






1499 










1500 










1501 


CAE9 


F6 


09 


5B 


1502 


CAEC 


5C 






1503 


CAED 


34 


04 




1504 


CAEF 


D7 


6F 




1505 


CAF1 


8D 


0E 




1506 


CAF3 


35 


04 




1507 


CAF5 


5A 






1508 


CAF6 


26 


F5 




1509 


CAF8 


39 






1510 










1511 










1512 


CAF9 


0D 


6F 




1513 


CAFB 


10 


2F 


B7 87 


1514 


CAFF 


32 


62 




1515 


CB01 


BD 


C7 


44 


1516 


CB04 


0F 


6F 




1517 


CB06 


9F 


Fl 




1518 


CB08 


A6 


00 




1519 


CB0A 


27 


EC 




1520 


CB0C 


34 


02 




1521 


CB0E 


6F 


00 




1522 


CB10 


E6 


01 




1523 


CB12 


D7 


EB 




1524 


CB14 


81 


20 




1525 


CB16 


26 


19 




1526 










1527 










1528 


CB18 


E6 


88 


18 


1529 


CB1B 


86 


80 




1530 










1531 


CB1D 


AA 


05 




1532 


CB1F 


ED 


88 


13 


1533 


CB22 


6C 


04 




1534 


CB24 


E6 


03 




1535 


CB26 


BD 


C7 


55 


1536 


CB29 


A7 


01 





STA 


DRUNFL 


BSR 


LCA07 


LDA 


DASCFL 


BEQ 


LCA7E 


TST 


DMRGFL 


BNE 


LCA7B 


JSR 


LAD19 


JMP 


LAC7C 



* LOAD IN A CRUNCHED BASIC FILE 
LCA7E LDA DFLTYP 

ORA DMRGFL 

LBNE LA616 

JSR LAD19 

COM DLODFL 



JSR 


LCDBC 


JSR 


LCDBC 


PSHS 


A 


JSR 


LCDBC 


TFR 


A,B 


PULS 


A 


ADDD 


TXTTAB 


JSR 


LAC37 


LDX 


TXTTAB 


JSR 


LC5C4 


LDB 


CINBFL 


BNE 


LCAAF 


STA 


,x+ 


BRA 


LCAA4 



CAAF CLR DLODFL 
STX VARTAB 
MAKE SURE LAST THREE BYTES LOADED WERE ZERO 





LDB 


#$03 




LCAB6 


LDA 


,-x 






BNE 


LCABD 






DECB 








BNE 


LCAB6 




LCABD 


LDX 


VARTAB 




LCABF 


STX 


VARTAB 






CLR 


,x+ 






DECB 








BPL 


LCABF 




LCAC6 


JSR 


LA42D 






JSR 


LAD21 






JSR 


XVEC18 






JSR 


LACEF 






ASR 


DRUNFL 






BLO 


LCADA 






JSR 


LA426 




LCADA 


ASR 


DRUNFL 






LBCS 


LAD9E 






JMP 


LAC73 




DVEC13 


TST 


DEVNUM 






BGT 


LCAC6 






RTS 






* CLOSE 


ALL FILE BUFFERS RAM 


VEC" 


DVEC7 


LDB 

INCB 


FCBACT 




LCAED 


PSHS 


B 






STB 


DEVNUM 






BSR 


LCB01 






PULS 


B 






DECB 








BNE 


LCAED 




LCAF8 


RTS 






* CLOSE 


FILE 


RAM HOOK 




DVEC8 


TST 


DEVNUM 






LBLE 


XVEC8 






LEAS 


$02, S 




LCB01 


JSR 


LC744 






CLR 


DEVNUM 




LCB06 


STX 


FCBTMP 






LDA 


FCBTYP.X 






BEQ 


LCAF8 






PSHS 


A 






CLR 


FCBTYP.X 






LDB 


FCBDRV.X 






STB 


DCDRV 






CMPA 


#OUTFIL 






BNE 


LCB31 




* CLOSE 


A SEQUENTIAL OUTPUT 


FILE 




LDB 


FCBLFT.X 






LDA 


#$80 






ORA 


FCBCPT.X 






STD 


FCBLST.X 






INC 


FCBSEC.X 






LDB 


FCBCGR.X 






JSR 


LC755 






STA 


FAT1.X 





♦BEFORE THE FILE IS RUN 

GRAB FCB FOR INPUT FILE 

♦CHECK ASCII FLAG AND BRANCH 

•IF CRUNCHED BASIC FILE 

IS THIS A MERGE? 

BRANCH IF MERGE 

DO A 'NEW - ERASE VARIABLES, RESET VARIABLES 

GO TO BASIC'S MAIN LOOP, IT WILL LOAD PROGRAM 



*CHECK FILE TYPE (MUST BE BASIC:0) S CHECK 
*MERGE FLAG (MUST BE NO MERGE: 0) 
'BAD FILE MODE' ERROR IF MERGE OR NON-BASIC 
DO A 'NEW - RESET POINTERS, ERASE VARIABLES 

* SET THE LOAD FLAG TO $FF - THIS WILL CAUSE A NEW TO 

* OCCUR IF AN ERROR OCCURS WHILE THE PROGRAM IS BEING LOADED 
GET CHAR FROM BUFFER - SHOULD BE $FF 

GET ANOTHER - MS BYTE OF LENGTH 

SAVE MS BYTE ON STACK 

LS BYTE OF LENGTH OF PROGRAM 

PUT LS BYTE INTO ACCB 

NOW ACCD CONTAINS LENGTH OF PROGRAM 

ADD BEGINNING OF BASIC 

SEE OF ENOUGH ROOM IN RAM FOR THIS FILE 

GET START OF BASIC 

READ A CHAR FROM CONSOLE IN 

BUFFER EMPTY? 

BRANCH IF SO 

STORE CHAR 

GET ANOTHER CHARACTER 

CLEAR LOAD FLAG - LOAD WAS ERROR FREE 
SAVE NEW START OF VARIABLES 

CHECK THREE BYTES 

CHECK A BYTE 

BRANCH IF NON-ZERO 

DECREMENT COUNTER 

KEEP CHECKING IF NOT DONE 

GET START OF VARIABLES 

SAVE START OF VARIABLES 

CLEAR A BYTE 

DECREMRNT COUNTER 

KEEP CLEARING BYTES IF NOT DONE 

CLOSE SELECTED FILE 

DO PART OF NEW - ERASE VARIABLES, RESET INPUT PTR 

INITIALIZE EXBAS GRAPHICS VARIABLES 

RELOCATE ALL THE BASIC NEXT LINE POINTERS 

CHECK LSB OF RUN FLAG 

BRANCH IF DON'T CLOSE ALL FILES 

CLOSE ALL FILES 

TEST BIT 1 OF RUN FLAG 

BRANCH TO COMM INTERPRETATION LOOP IF BIT 1 SET 

RETURN TO DIRECT MODE 

* CHECK DEVICE NUMBER AND 

* TRY TO RUN FILE IF IT IS A DISK FILE 



GET THE NUMBER OF RESERVED FILE BUFFERS 

ADD ONE 

SAVE IT 

STORE IT IN DEVICE NUMBER 

CLOSE FILE 

GET BACK NUMBER OF FILE BUFFERS 

DECREMENT FILE BUFFER COUNTER 

BRANCH IF ALL FILES NOT CLOSED 



* CHECK DEVICE NUMBER AND RETURN 

* IF NOT A DISK FILE 

PURGE RETURN ADDRESS OFF OF THE STACK 

POINT X TO CORRECT FCB 

SET DEVICE NUMBER TO SCREEN 

SAVE FILE BUFFER POINTER 

GET THE TYPE OF THIS FILE 

RETURN IF FILE NOT OPEN 

SAVE FILE TYPE 

CLOSE THE FILE - ZERO OUT THE FILE TYPE 

* GET DRIVE NUMBER AND 

* SAVE IT IN DSKCON VARIABLE 
= CHECK FOR OUTPUT TYPE AND 

= BRANCH IF NOT OUTPUT TYPE FILE 



GET THE NUMBER OF CHARACTERS IN BUFFER 

* SET THE PRE-SAVED BIT TO INDICATE THAT THE DATA 

* HAS ALREADY BEEN SAVED ON DISK 
'OR' IN THE FULL SECTOR FLAG 

SAVE THE NUMBER OF BYTES USED IN THE LAST SECTOR 

INCREMENT THE SECTOR NUMBER 

GET THE CURRENT GRANULE NUMBER 

POINT X TO FILE ALLOCATION TABLE 

SET FAT DATA NOT VALID FLAG (ACCA o 0) 



DISK BASIC UNRAVELLED II 



APPENDIX B 
DISASSEMBLY OF DISK BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/26/1999 WALTER K ZYDHEK 



1537 


CB2B 


3A 




1538 


CB2C 


6C 


06 


1539 








1540 


CB2E 


7E 


CB C3 


1541 


CB31 


81 


40 


1542 


CB33 


26 


F9 


1543 








1544 








1545 


CB35 


EC 


09 


1546 


CB37 


AE 


0B 


1547 


CB39 


31 


8B 


1548 


CB3B 


34 


36 


1549 


CB3D 


31 


E4 


1550 


CB3F 


DE 


IB 


1551 


CB41 


11 


93 ID 


1552 


CB44 


27 


0E 


1553 


CB46 


A6 


41 


1554 


CB48 


33 


42 


1555 


CB4A 


2A 


02 


1556 


CB4C 


8D 


28 


1557 


CB4E 


33 


45 


1558 


CB50 


20 


EF 


1559 


CB52 


35 


40 


1560 


CB54 


11 


93 IF 


1561 


CB57 


27 


3A 


1562 


CB59 


IF 


30 


1563 


CB5B 


E3 


42 


1564 


CB5D 


34 


06 


1565 


CB5F 


A6 


41 


1566 


CB61 


2A 


EF 


1567 


CB63 


E6 


44 


1568 


CB65 


58 




1569 


CB66 


CB 


05 


1570 


CB68 


4F 




1571 


CB69 


33 


CB 


1572 


CB6B 


11 


A3 E4 


1573 


CB6E 


27 


E2 


1574 


CB70 


8D 


04 


1575 


CB72 


33 


45 


1576 


CB74 


20 


F5 


1577 








1578 








1579 








1580 








1581 








1582 








1583 


CB76 


AE 


42 


1584 


CB78 


BC 


09 48 


1585 


CB7B 


24 


0E 


1586 


CB7D 


AC 


22 


1587 


CB7F 


25 


0A 


1588 


CB81 


AC 


24 


1589 


CB83 


25 


07 


1590 


CB85 


IF 


10 


1591 


CB87 


A3 


A4 


1592 


CB89 


ED 


42 


1593 


CB8B 


39 




1594 


CB8C 


6F 


C4 


1595 


CB8E 


6F 


42 


1596 


CB90 


6F 


43 


1597 


CB92 


39 




1598 








1599 








1600 


CB93 


F6 


09 5B 


1601 


CB96 


5C 




1602 


CB97 


34 


04 


1603 


CB99 


BD 


C7 49 


1604 


CB9C 


A6 


00 


1605 


CB9E 


81 


40 


1606 


CBA0 


26 


0B 


1607 


CBA2 


EC 


0B 


1608 


CBA4 


10 


A3 24 


1609 


CBA7 


25 


04 


1610 


CBA9 


A3 


A4 


1611 


CBAB 


ED 


0B 


1612 


CBAD 


35 


04 


1613 


CBAF 


5A 




1614 


CBB0 


26 


E5 


1615 


CBB2 


35 


56 


1616 








1617 








1618 








1619 








1620 








1621 








1622 








1623 








1624 








1625 








1626 








1627 








1628 








1629 


CBB4 


11 


B3 09 


1630 


CBB8 


27 


06 


1631 


CBBA 


A6 


C0 


1632 


CBBC 


A7 


80 



ADD GRANULE OFFSET TO FAT POINTER 

* INCREMENT GRANULE DATA (ADD ONE SECTOR TO LAST 

* GRANULE) SKIP PAST THE SIX FAT CONTROL BYTES 
UPDATE FAT AND DIRECTORY 

RANDOM FILE? 

NO - UPDATE FAT AND DIRECTORY IF SEQUENTIAL INPUT FILE 



GET RECORD LENGTH 

POINT X TO RANDOM FILE BUFFER 

POINT Y TO END OF RANDOM FILE BUFFER 

SAVE POINTERS ON STACK 

POINT Y CURRENT STACK POINTER 

GET START OF VARIABLES 

COMPARE TO START OF ARRAYS 

BRANCH IF ALL VARIABLES CHECKED 

GET 2ND BYTE OF VARIABLE NAME 

MOVE POINTER TO START OF DESCRIPTOR 

BRANCH IF VARIABLE - NUMERIC 

ADJUST STRING VARIABLE IF IN RANDOM FILE BUFFER 

MOVE POINTER TO NEXT VARIABLE 

PROCESS ANOTHER VARIABLE 

GET ADDRESS OF NEXT ARRAY TO U 

COMPARE TO END OF ARRAYS 

BRANCH IF END OF ARRAYS 

* SAVE ARRAY START IN ACCD, ADD OFFSET 

* TO NEXT ARRAY AND SAVE ADDRESS OF 

* NEXT ARRAY ON THE STACK 

GET 2ND LETTER OF VARIABLE NAME 

BRANCH IF NUMERIC 

GET THE NUMBER OF DIMENSIONS 

X2:2 BYTES PER DIMENSION 

5 BYTES CONSTANT PER ARRAY DESCRIPTOR 

CLEAR MSB OF OFFSET - (ONLY 125 DIMENSIONS ALLOWED) 

POINT U TO START OF THIS ARRAY'S VARIABLES 

AT END OF THIS ARRAY? 

YES 

ADJUST STRING VARIABLE IF IN RANDOM FILE BUFFER 

MOVE POINTER TO NEXT DESCRIPTOR 

CHECK NEXT VARIABLE 



CHECK TO SEE IF A STRING IS LOCATED IN THE RANDOM FILE BUFFER AREA. IF IT IS 

THE RANDOM FILE BUFFER IN QUESTION, IT WILL BE DELETED. IF IT IS HIGHER IN THE RANDOM 

FILE BUFFER SPACE THAN THE BUFFER IN QUESTION, THE LENGTH OF THE CURRENT 

BUFFER WILL BE SUBTRACTED FROM THE ADDRESS OF THE STRING BECAUSE THE CURRENT 

BUFFER IS BEING DELETED (CLOSED). 





ABX 






INC 


FATCON.X 


LCB2E 


JMP 


LCBC3 


LCB31 


CMPA 


#RANFIL 




BNE 


LCB2E 


* CLOSE 


A RANDOM FILE 




LDD 


FCBRLN.X 




LDX 


FCBBUF.X 




LEAY 


D,X 




PSHS 


Y,X,B,A 




LEAY 


,s 




LDU 


VARTAB 


LCB41 


CMPU 


ARYTAB 




BEQ 


LCB54 




LDA 


$01, U 




LEAD 


$02, U 




BPL 


LCB4E 




BSR 


LCB76 


LCB4E 


LEAU 


$05, U 




BRA 


LCB41 


LCB52 


PULS 


U 


LCB54 


CMPU 


ARYEND 




BEQ 


LCB93 




TFR 


U,D 




ADDD 


$02, U 




PSHS 


B,A 




LDA 


$01, U 




BPL 


LCB52 




LDB 


$04, U 




ASLB 






ADDB 


#$05 




CLRA 






LEAU 


D,U 


LCB6B 


CMPU 


,s 




BEQ 


LCB52 




BSR 


LCB76 




LEAU 


$05, U 




BRA 


LCB6B 



LDX 

CMPX 

BHS 

CMPX 

BLO 

CMPX 

BLO 

TFR 

SUBD 

STD 

RTS 

CLR 

CLR 

CLR 

RTS 
REMOVE RESERVED SPACE IN RANDOM FILE BUFFER FOR A 'CLOSED' RANDOM FILE 
ADJUST THE START OF RANDOM FILE BUFFER POINTER IN ALL RANDOM FCBS 



LCB8B 
LCB8C 



$02, U 

RNBFAD 

LCB8B 

$02, Y 

LCB8B 

$04, Y 

LCB8C 

X,D 

,Y 

$02, U 

,U 

$02, U 
$03, U 



POINT X TO START OF STRING 

COMPARE TO START OF FREE RANDOM FILE BUFFER AREA 

RETURN IF > START OF FREE RANDOM FILE BUFFER AREA 

COMPARE TO START OF THIS FILE'S RANDOM BUFFER 

RETURN IF < START OF THIS FILE'S RANDOM BUFFER 

COMPARE TO END OF THIS FILE'S RANDOM BUFFER 

RETURN IF < END OF THIS FILE'S RANDOM BUFFER 

SAVE POINTER IN ACCD 

SUBTRACT RECORD LENGTH FROM START OF STRING ADDRESS 

SAVE NEW START OF STRING ADDRESS 

CLEAR THE LENGTH OF THE STRING 

* CLEAR THE ADDRESS 

* OF THE STRING 



LDB 

INCB 

PSHS 

JSR 

LDA 

CMPA 

BNE 

LDD 

CMPD 

BLO 

SUBD 

STD 

PULS 

DECB 

BNE 

PULS 



FCBACT 



LC749 
FCBTYP.X 

#RANFIL 

LCBAD 

FCBBUF.X 

$04, Y 

LCBAD 

,Y 

FCBBUF.X 



LCB97 
A,B,X,U 



GET THE NUMBER OF ACTIVE FILES 

ADD ONE 

SAVE FILES COUNT ON THE STACK 

POINT X TO FCB 

GET FILE TYPE 

IS IT A RANDOM FILE? 

BRANCH IF NOT 

GET START OF THIS FILE'S RANDOM FILE BUFFER 

* COMPARE TO END OF RANDOM FILE BUFFER AREA AND 

* BRANCH IF < END OF RANDOM FILE BUFFER AREA 
= SUBTRACT RECORD LENGTH OF SELECTED FILE 

= SAVE NEW START OF RANDOM FILE BUFFER 
GET THE FILES COUNTER 
DECREMENT FILES COUNTER 
BRANCH IF ALL FILES NOT DONE 

* U = END OF RANDOM FILE BUFFER, X = START OF RANDOM 

* FILE BUFFER, ACCD = RECORD LENGTH 



** THIS WOULD PROBABLY BE THE MOST CONVENIENT PLACE TO FIX THE BUG WHICH 
** CAUSES THE SYSTEM TO HANG IF AN ERROR IS ENCOUNTERED DURING 'COPY' 



CMPU FCBADR 



BLO LCBB4 

LDX #DFLBUF 

BRA LCBC0 
RANDOM FILE BUFFER AREA 
REMOVE RESERVED SPACE FOR CLOSED FILE FROM RANDOM FILE BUFFER SPACE 



* IS THE END OF THIS FOB'S BUFFER ABOVE THE END 

* OF THE START OF THE FCB AREA 

NO - FREE UP THE SPACE USED BY THIS FILE IN RANDOM BUFFER 
YES - DOING A 'COPY'; RESET START OF RANDOM BUFFER 



LCBB4 CMPU RNBFAD 

BEQ LCBC0 

LDA ,U+ 

STA ,X+ 



AT THE BOTTOM OF FREE RANDOM BUFFER AREA? 

BRANCH IF THERE 

= GRAB A SOURCE BYTE AND 

= MOVE IT TO DESTINATION 



DISK BASIC UNRAVELLED II 



APPENDIX B 
DISASSEMBLY OF DISK BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/26/1999 WALTER K ZYDHEK 



1633 


CBBE 


20 


F4 




1634 


CBC0 


BF 


09 


48 


1635 


CBC3 


BD 


C7 


55 


1636 


CBC6 


6A 


00 




1637 


CBC8 


6D 


01 




1638 


CBCA 


27 


03 




1639 


CBCC 


BD 


C7 


IE 


1640 


CBCF 


9E 


Fl 




1641 


CBD1 


35 


02 




1642 


CBD3 


81 


20 




1643 


CBD5 


27 


08 




1644 


CBD7 


81 


40 




1645 


CBD9 


26 


B0 




1646 


CBDB 


A6 


0F 




1647 


CBDD 


27 


0A 




1648 










1649 










1650 


CBDF 


BD 


C7 


63 


1651 


CBE2 


33 


88 


19 


1652 


CBE5 


DF 


EE 




1653 


CBE7 


8D 


2C 




1654 


CBE9 


A6 


88 


13 


1655 


CBEC 


2A 


9D 




1656 


CBEE 


E6 


88 


12 


1657 


CBF1 


C4 


07 




1658 


CBF3 


86 


20 




1659 


CBF5 


3D 






1660 


CBF6 


CE 


06 


00 


1661 


CBF9 


DF 


EE 




1662 


CBFB 


31 


CB 




1663 


CBFD 


E6 


88 


12 


1664 


CC00 


54 






1665 


CC01 


54 






1666 


CC02 


54 






1667 


CC03 


CB 


03 




1668 


CC05 


D7 


ED 




1669 


CC07 


CC 


11 


02 


1670 


CC0A 


97 


EC 




1671 


CC0C 


8D 


09 




1672 


CC0E 


EC 


88 


13 


1673 


ecu 


84 


7F 




1674 


CC13 


ED 


2E 




1675 


CC15 


C6 


03 




1676 


CC17 


D7 


EA 




1677 


CC19 


7E 


D6 


F2 


1678 










1679 










1680 


CC1C 


0D 


6F 




1681 


CC1E 


10 


2F 


B6 51 


1682 


CC22 


32 


62 




1683 










1684 










1685 


CC24 


34 


16 




1686 


CC26 


8E 


09 


26 


1687 


CC29 


D6 


6F 




1688 


CC2B 


58 






1689 


CC2C 


AE 


85 




1690 


CC2E 


E6 


84 




1691 


CC30 


CI 


10 




1692 


CC32 


27 


36 




1693 


CC34 


81 


0D 




1694 


CC36 


26 


02 




1695 


CC38 


6F 


06 




1696 


CC3A 


81 


20 




1697 


CC3C 


25 


02 




1698 


CC3E 


6C 


06 




1699 


CC40 


CI 


40 




1700 


CC42 


26 


1A 




1701 










1702 


CC44 


EC 


88 


17 


1703 


CC47 


C3 


00 


01 


1704 


CC4A 


10 


A3 


09 


1705 


CC4D 


10 


22 


01 7A 


1706 


CC51 


ED 


88 


17 


1707 


CC54 


AE 


0B 




1708 


CC56 


30 


8B 




1709 


CC58 


35 


02 




1710 


CC5A 


A7 


IF 




1711 


CC5C 


35 


94 




1712 










1713 










1714 


CC5E 


6C 


88 


18 


1715 


CC61 


E6 


88 


18 


1716 


CC64 


27 


06 




1717 


CC66 


3A 






1718 


CC67 


A7 


88 


18 


1719 


CC6A 


35 


96 




1720 










1721 










1722 


CC6C 


34 


60 




1723 


CC6E 


A7 


89 


01 18 


1724 


CC72 


E6 


01 




1725 


CC74 


D7 


EB 




1726 


CC76 


6C 


04 




1727 


CC78 


BD 


CB 


DF 


1728 


CC7B 


31 


84 







BRA 


LCBB4 


LCBC0 


STX 


RNBFAD 


LCBC3 


JSR 


LC755 




DEC 


FAT0.X 




TST 


FAT1.X 




BEQ 


LCBCF 




JSR 


LC71E 


LCBCF 


LDX 


FCBTMP 




PULS 


A 




CMPA 


#OUTFIL 




BEQ 


LCBDF 




CMPA 


#RANFIL 




BNE 


LCB8B 




LDA 


FCBFLG.X 




BEQ 


LCBE9 


* WRITE 


CONTENTS OF FI I 


LCBDF 


JSR 


LC763 




LEAU 


FCBCON.X 




STU 


DCBPT 




BSR 


LCC15 


LCBE9 


LDA 


FCBLST.X 




BPL 


LCB8B 




LDB 


FCBDIR.X 




ANDB 


#$07 




LDA 


#DIRLEN 




MUL 






LDU 


#DBUF0 




STU 


DCBPT 




LEAY 


D,U 




LDB 


FCBDIR.X 




LSRB 






LSRB 






LSRB 






ADDB 


#$03 




STB 


DSEC 




LDD 


#$1102 




STA 


DCTRK 




BSR 


LCC17 




LDD 


FCBLST.X 




ANDA 


#$7F 




STD 


DIRLIST, 


LCC15 


LDB 


#$03 


LCC17 


STB 


DCOPC 




JMP 


LD6F2 



KEEP MOVING BYTES 

SAVE NEW START OF FREE RANDOM BUFFER AREA 

POINT X TO PROPER FILE ALLOCATION TABLE 

REMOVE ONE ACTIVE FILE 

NEW DATA IN FAT RAM IMAGE? 

NO 

WRITE OUT FILE ALLOCATION TABLE TO DISK 

GET FILE BUFFER POINTER 

GET FILE TYPE 

IS IT A SEQUENTIAL OUTPUT FILE? 

YES 

IS IT A RANDOM FILE? 

RETURN IF NOT A RANDOM FILE (SEQUENTIAL INPUT) 

* TEST THE GET/PUT FLAG AND 

* BRANCH IF 'GET' 



GET PROPER TRACK S SECTOR NUMBERS 

POINT U TO START OF FCB DATA 

SET UP FILE BUFFER POINTER FOR DSKCON 

GO WRITE A SECTOR 

CHECK THE PRE-SAVED FLAG 

RETURN IF RECORD HAS ALREADY BEEN SAVED ON DISK 

GET DIRECTORY NUMBER OF THIS FILE 

8 ENTRIES PER SECTOR 

DIRLEN BYTES PER DIRECTORY ENTRY 

GET SECTOR OFFSET FOR THIS ENTRY 

* GET READ/WRITE BUFFER AND 

* SAVE IT IN DSKCON REGISTER 

Y POINTS TO CORRECT DIRECTORY ENTRY 
GET DIRECTORY ENTRY NUMBER 



* DIVIDE BY 8; EIGHT DIRECTORY ENTRIES PER SECTOR 

ADD BIAS; FIRST 3 SECTORS NOT DIRECTORY 

STORE SECTOR NUMBER 

DIRECTORY TRACK - READ OP CODE 

STORE TRACK NUMBER 

GO READ DIRECTORY 

GET NUMBER OF BYTES IN THE LAST SECTOR 

MASK OFF THE PRE-SAVED FLAG 

SAVE NUMBER OF BYTES IN LAST SECTOR OF FILE IN DIRECTORY 

WRITE OP CODE 

SAVE DSKCON OP CODE VARIABLE 

GO READ/WRITE SECTOR 



* CONSOLE OUT RAM HOOK 

DVEC3 TST DEVNUM CHECK DEVICE NUMBER 

LBLE XVEC3 BRANCH TO EX BASIC IF NOT A I 

LEAS $02, S POP RETURN OFF STACK 

* SEND A CHARACTER IN ACCA TO A DISK FILE. A CARRIAGE RETURN WILL RESET THE 

* PRINT POSITION AND CONTROL CODES WILL NOT INCREMENT THE PRINT POSITION. 



LCC24 



PSHS 


X.B.A 


LDX 


SFCBV1-2 


LDB 


DEVNUM 


AS LB 




LDX 


B.X 


LDB 


FCBTYP.X 


CMPB 


#INPFIL 


BEQ 


LCC6A 


CMPA 


#CR 


BNE 


LCC3A 


CLR 


FCBPOS.X 


CMPA 


#SPACE 


BLO 


LCC40 


INC 


FCBPOS.X 


CMPB 


#RANFIL 


BNE 


LCC5E 


BYTE 


INTO A RANDOM FILE 


LDD 


FCBPUT.X 


ADDD 


#$0001 


CMPD 


FCBRLN.X 


LBHI 


LCDCB 


STD 


FCBPUT.X 


LDX 


FCBBUF.X 


LEAX 


D.X 


PULS 


A 


STA 


-l.X 


PULS 


B.X.PC 


A BYTE TO SEQUENTIAL OU" 


INC 


FCBLFT.X 


LDB 


FCBLFT.X 


BEQ 


LCC6C 


ABX 




STA 


FCBCON-l.X 



SAVE REGISTERS 

POINT X TO TABLE OF FILE NUMBER VECTORS 

GET CURRENT FILE NUMBER 

2 BYTES PER FCB ADDRESS 

POINT X TO PROPER FCB 

GET FILE TYPE 

IS IT AN INPUT FILE? 

RETURN IF SO 

CARRIAGE RETURN (ENTER) 

NO 

CLEAR PRINT POSITION IF CARRIAGE RETURN 

♦BRANCH IF CONTROL CHAR 
INCREMENT PRINT POSITION 
IS IT RANDOM FILE? 
BRANCH IF NOT RANDOM 

GET 'PUT' BYTE COUNTER 

ADD ONE 

COMPARE TO RECORD LENGTH 

'FR' ERROR IF 'PUT' BYTE COUNTER > RECORD LENGTH 

SAVE NEW 'PUT' BYTE COUNTER 

POINT TO RANDOM FILE BUFFER POINTER 

POINT TO ONE PAST END OF CURRENT RECORD DATA 

PULL DATA FROM STACK 

STORE IN DATA BUFFER 

RESTORE REGISTERS AND RETURN 



INCREMENT CHARACTER COUNT 

* GET CHARACTER COUNT AND BRANCH 

* IF THE BUFFER IS FULL 

ADD CHARACTER COUNT TO FCB ADDRESS 

STORE NEW CHARACTER (SKIP PAST 25 CONTROL BYTES AT FCB START) 



PULS A.B.X.PC 



WRITE OUT A FULL BUFFER AND RESET BUFFER 



PSHS 


U.Y 


STA 


SECLEN+FCBCON-l.X 


LDB 


FCBDRV.X 


STB 


DCDRV 


INC 


FCBSEC.X 


JSR 


LCBDF 


LEAY 


,x 



SAVE REGISTERS 

STORE LAST CHARACTER IN BUFFER 

* GET DRIVE NUMBER AND SAVE 

* IT IN DSKCON CONTROL TABLE 
INCREMENT SECTOR NUMBER 
WRITE THE FILE BUFFER TO DISK 
SAVE FCB POINTER IN Y 
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1729 


CC7D 


E6 


03 




1730 


CC7F 


BD 


C7 


55 


1731 


CC82 


3A 






1732 


CC83 


33 


06 




1733 










1734 


CC85 


A6 


24 




1735 


CC87 


81 


09 




1736 


CC89 


25 


0E 




1737 


CC8B 


6A 


24 




1738 


CC8D 


6C 


25 




1739 










1740 










1741 


CC8F 


BD 


C7 


BF 


1742 


CC92 


6F 


24 




1743 


CC94 


6F 


25 




1744 


CC96 


A7 


23 




1745 


CC98 


8C 


8A 


C0 


1746 


CC99 


8A 


C0 




1747 


CC9B 


A7 


C4 




1748 


CC9D 


30 


A4 




1749 


CC9F 


BD 


C6 


85 


1750 


CCA2 


BD 


C5 


A9 


1751 


CCA5 


35 


60 




1752 


CCA7 


35 


96 




1753 










1754 










1755 


CCA9 


BD 


D2 


4F 


1756 


CCAC 


BD 


C7 


9D 


1757 


CCAF 


BD 


B9 


58 


1758 


CCB2 


CC 


11 


02 


1759 


CCB5 


97 


EC 




1760 


CCB7 


D7 


EA 




1761 


CCB9 


C6 


03 




1762 










1763 










1764 


CCBB 


D7 


ED 




1765 


CCBD 


8E 


06 


00 


1766 


CCC0 


9F 


EE 




1767 


CCC2 


BD 


D6 


F2 


1768 










1769 










1770 


CCC5 


35 


40 




1771 


CCC7 


BD 


A5 


49 


1772 


CCCA 


34 


40 




1773 


CCCC 


A6 


84 




1774 


CCCE 


27 


38 




1775 


CCD0 


43 






1776 


CCD1 


27 


44 




1777 


CCD3 


34 


10 




1778 


CCD5 


C6 


08 




1779 


CCD7 


BD 


B9 


A2 


1780 


CCDA 


8D 


3F 




1781 


CCDC 


C6 


03 




1782 


CCDE 


BD 


B9 


A2 


1783 


CCE1 


8D 


38 




1784 


CCE3 


E6 


00 




1785 


CCE5 


CI 


0A 




1786 


CCE7 


24 


02 




1787 


CCE9 


8D 


30 




1788 


CCEB 


4F 






1789 


CCEC 


BD 


BD 


CC 


1790 


CCEF 


8D 


2A 




1791 


CCF1 


AE 


E4 




1792 


CCF3 


86 


42 




1793 


CCF5 


AB 


0C 




1794 


CCF7 


8D 


IF 




1795 


CCF9 


E6 


0D 




1796 


CCFB 


8D 


21 




1797 


CCFD 


IF 


89 




1798 


CCFF 


4F 






1799 


CD00 


BD 


BD 


CC 


1800 


CD03 


BD 


B9 


58 


1801 


CD06 


35 


10 




1802 


CD08 


30 


88 


20 


1803 


CD0B 


8C 


07 


00 


1804 


CD0E 


25 


B5 




1805 


CD10 


D6 


ED 




1806 


CD12 


5C 






1807 


CD13 


CI 


12 




1808 


CD15 


23 


A4 




1809 


CD17 


39 






1810 


CD18 


BD 


A2 


82 


1811 


CD1B 


7E 


B9 


AC 


1812 










1813 










1814 










1815 


CD1E 


BD 


C7 


55 


1816 


CD21 


33 


06 




1817 


CD23 


4F 






1818 


CD24 


4C 






1819 


CD25 


81 


44 




1820 


CD27 


10 


22 


F9 28 


1821 


CD2B 


30 


C4 




1822 


CD2D 


3A 






1823 


CD2E 


E6 


84 




1824 


CD30 


CI 


C0 





LDB 


FCBCGR.X 


JSR 


LC755 


ABX 




LEAU 


FATCON.X 


LDA 


FCBSEC.Y 


CMPA 


#$09 


BLO 


LCC99 


DEC 


FCBSEC.Y 


INC 


FCBCPT.Y 


JSR 


LC7BF 


CLR 


FCBSEC.Y 


CLR 


FCBCPT.Y 


STA 


FCBCGR.Y 


CMPX 


#$8AC0 


X99 ORA 


#$C0 


STA 


,U 


LEAX 


,Y 


JSR 


LC685 


JSR 


LC5A9 


PULS 


Y.U 


PULS 


A.B.X.PC 


DIR COMMAND 




R JSR 


LD24F 


JSR 


LC79D 


JSR 


LB958 


LDD 


#$1102 


STA 


DCTRK 


STB 


DCOPC 


LDB 


#$03 



* READ A DIRECTORY SECTOR INTO THE I/O BUFFER 
LCCBB STB DSEC 

LDX #DBUF0 

STX DCBPT 

JSR LD6F2 



* SEND DIRECTORY 
LCCC5 PULS U 



INFORMATION TO CONSOLE OUT 





JSR 


LA549 




PSHS 


U 




LDA 


DIRNAM.X 




BEQ 


LCD08 




COMA 






BEQ 


LCD17 




PSHS 


X 




LDB 


#$08 




JSR 


LB9A2 




BSR 


LCD1B 




LDB 


#$03 




JSR 


LB9A2 




BSR 


LCD1B 




LDB 


FCBTYP.X 




CMPB 


#10 




BHS 


LCCEB 




BSR 


LCD1B 


LCCEB 


CLRA 






JSR 


LBDCC 




BSR 


LCD1B 




LDX 


,s 




LDA 


#'A'+1 




ADDA 


DIRASC.X 




BSR 


LCD18 




LDB 


DIRGRN.X 




BSR 


LCD1E 




TFR 


A.B 




CLRA 






JSR 


LBDCC 




JSR 


LB958 




PULS 


X 


LCD08 


LEAX 


DIRLEN.X 




CMPX 


#DBUF0+SECLEN 




BLO 


LCCC5 




LDB 


DSEC 




INCB 






CMPB 


#SECMAX 




BLS 


LCCBB 


LCD17 


RTS 




LCD18 


JSR 


LA282 


LCD1B 


JMP 


LB9AC 



GET GRANULE NUMBER 

POINT X TO PROPER ALLOCATION TABLE 

ADD THE GRANULE NUMBER TO FAT POINTER 

POINT U TO THE CORRECT GRANULE IN FAT - SKIP PAST 

THE SIX FAT CONTROL BYTES 

GET CURRENT SECTOR FOR THIS GRANULE 

MAX SECTOR NUMBER (9 SECTORS/GRANULE) 

BRANCH IF NOT AT END OF GRANULE 

*DECREMENT SECTOR NUMBER AND INCREMENT ERROR FLAG IN 

*CASE ERROR FOUND WHILE LOOKING FOR NEXT GRANULE 

THE ERROR FLAG IS USED TO INDICATE THAT ANOTHER SECTOR 

MUST BE ADDED TO THE LENGTH OF FILE FOLLOWING ERROR PROCESSING. 

GET NEXT FREE GRANULE 

♦CLEAR SECTOR NUMBER AND 

*ERROR FLAG - DISK WAS NOT FULL 

SAVE NEW GRANULE IN FCB 

SKIP TWO BYTES NO DATA STORED IN NEW SECTOR YET 

FORCE GRANULE NUMBER TO BE FINAL GRANULE IN FILE 

STORE IN MAP 

POINT X TO FCB 

INCREMENT RECORD NUMBER 

UPDATE FILE ALLOCATION TABLE 

RESTORE REGISTERS 

RESTORE REGISTERS AND RETURN 



SCAN DRIVE NUMBER FROM INPUT LINE 

GET FAT FOR THIS DRIVE 

PRINT CARRIAGE RETURN TO CONSOLE OUT 

* GET TRACK 17 AND 

* READ OP CODE AND 

* SAVE IN DSKCON VARIABLES 

START WITH SECTOR 3 (FIRST DIRECTORY SECTOR) 



SAVE SECTOR NUMBER IN DSKCON VARIABLE 

* USE I/O BUFFER FOR DATA TRANSFER 

* SAVE IN DSKCON VARIABLE 
READ A SECTOR 



SAVE TOP OF STACK 

GO DO A BREAK CHECK 

RESTORE STACK 

TEST FILE NAME FIRST BYTE 

BRANCH IF KILLED 

FF = END OF DIRECTORY 

RETURN IF END OF DIRECTORY 

SAVE DIRECTORY POINTER ON STACK 

NUMBER CHARACTERS TO PRINT 

SEND FILENAME TO CONSOLE OUT 

SEND BLANK TO CONSOLE OUT 

NUMBER CHARACTERS TO PRINT 

SEND EXTENSION TO CONSOLE OUT 

SEND BLANK TO CONSOLE OUT 

GET FILE TYPE 

* CHECK THE NUMBER OF DECIMAL DIGITS IN 

* ACCB: IF THERE IS ONLY ONE DIGIT, 

* SEND BLANK TO CONSOLE OUT 
CLEAR MS BYTE OF ACCO 

PRINT ACCD IN DECIMAL TO CONSOLE OUT 

SEND BLANK TO CONSOLE OUT 

X NOW POINTS TO DIRECTORY ENTRY 

ASCII BIAS 

ADD TO ASCII FLAG 

PRINT CHARACTER AND BLANK TO CONSOLE OUT 

GET FIRST GRANULE IN FILE 

COUNT GRANULES 

SAVE COUNT IN ACCB 

CLEAR MS BYTE OF ACCD 

PRINT ACCO IN DECIMAL TO CONSOLE OUT 

SEND CARRIAGE RETURN TO CONSOLE OUT 

PULL DIRECTORY POINTER OFF OF THE STACK 

MOVE X TO NEXT DIRECTORY ENTRY 

END OF I/O BUFFER? 

BRANCH IF MORE DIRECTORY ENTRIES IN BUFFER 

GET CURRENT SECTOR 

BUMP COUNT 

SECMAX SECTORS IN DIRECTORY TRACK 

GET NEXT SECTOR 

FINISHED 

SEND CHARACTER TO CONSOLE OUT 

SEND BLANK TO CONSOLE OUT 



ENTER WITH ACCB POINTING TO FIRST GRANULE IN A FILE; RETURN THE NUMBER OF 
GRANULES IN THE FILE IN ACCA, THE GRANULE DATA FOR THE LAST SECTOR IN ACCB 

POINT X TO FILE ALLOCATION BUFFER 
POINT U TO START OF GRANULE DATA 
RESET GRANULE COUNTER 
INCREMENT GRANULE COUNTER 
CHECKED ALL 68 GRANULES? 
YES - 'BAD FILE STRUCTURE' ERROR 
POINT U TO START OF GRANULE DATA 
ADD POINTER TO FIRST GRANULE 
GET THIS GRANULE'S CONTROL BYTE 
IS THIS THE LAST GRANULE IN FILE? 



JSR 


LC755 


LEAU 


FATCON.X 


CLRA 




INCA 




CMPA 


#GRANMX 


LBHI 


LC653 


LEAX 


,u 


LDB 


,x 


CMPB 


#$C0 
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1825 


CD32 


25 


F0 


1826 


CD34 


39 




1827 








1828 








1829 


CD35 


0D 


6F 


1830 


CD37 


2F 


5E 


1831 


CD39 


8E 


B0 69 


1832 


CD3C 


AF 


E4 


1833 


CD3E 


8E 


02 DD 


1834 


CD41 


C6 


2C 


1835 


CD43 


D7 


01 


1836 


CD45 


96 


06 


1837 


CD47 


26 


02 


1838 


CD49 


C6 


20 


1839 


CD4B 


8D 


6F 


1840 


CD4D 


81 


20 


1841 


CD4F 


27 


FA 


1842 


CD51 


81 


22 


1843 


CD53 


26 


0A 


1844 


CD55 


CI 


2C 


1845 


CD57 


26 


06 


1846 


CD59 


IF 


89 


1847 


CD5B 


D7 


01 


1848 


CD5D 


20 


22 


1849 








1850 


CD5F 


CI 


22 


1851 


CD61 


27 


11 


1852 


CD63 


81 


0D 


1853 


CD65 


26 


0D 


1854 


CD67 


8C 


02 DD 


1855 


CD6A 


27 


44 


1856 


CD6C 


A6 


IF 


1857 


CD6E 


81 


0A 


1858 


CD70 


26 


3E 


1859 


CD72 


86 


0D 


1860 


CD74 


4D 




1861 


CD75 


27 


17 


1862 


CD77 


91 


01 


1863 


CD79 


27 


ID 


1864 


CD7B 


34 


04 


1865 


CD7D 


Al 


E0 


1866 


CD7F 


27 


17 


1867 


CD81 


A7 


80 


1868 


CD83 


8C 


03 D6 


1869 


CD86 


26 


06 


1870 


CD88 


8D 


46 


1871 


CD8A 


26 


06 


1872 


CD8C 


20 


IE 


1873 








1874 


CD8E 


8D 


40 


1875 


CD90 


27 


CD 


1876 


CD92 


6F 


84 


1877 


CD94 


8E 


02 DC 


1878 


CD97 


39 




1879 








1880 








1881 


CD98 


81 


22 


1882 


CD9A 


27 


04 


1883 


CD9C 


81 


20 


1884 


CD9E 


26 


F2 


1885 


CDA0 


8D 


2E 


1886 


CDA2 


26 


EE 


1887 


CDA4 


81 


20 


1888 


CDA6 


27 


F8 


1889 


CDA8 


81 


2C 


1890 


CDAA 


27 


E6 


1891 


CDAC 


81 


0D 


1892 


CDAE 


26 


08 


1893 


CDB0 


8D 


IE 


1894 


CDB2 


26 


DE 


1895 


CDB4 


81 


0A 


1896 


CDB6 


27 


DA 


1897 


CDB8 


8D 


1C 


1898 


CDBA 


20 


D6 


1899 








1900 


CDBC 


8D 


12 


1901 


CDBE 


27 


15 


1902 


CDC0 


BD 


C7 44 


1903 


CDC3 


E6 


00 


1904 


CDC5 


CI 


40 


1905 


CDC7 


10 


26 F5 87 


1906 


CDCB 


C6 


4A 


1907 


CDCD 


7E 


AC 46 


1908 








1909 


CDD0 


BD 


Al 76 


1910 


CDD3 


0D 


70 


1911 


CDD5 


39 




1912 








1913 








1914 


CDD6 


34 


14 


1915 


CDD8 


BD 


C7 44 


1916 


CDDB 


E6 


00 


1917 


CDDD 


CI 


40 


1918 


CDDF 


26 


0B 


1919 


CDE1 


EC 


88 15 


1920 


CDE4 


83 


00 01 



BLO 


LCD24 


RTS 




(AM HOOK 


TST 


DEVNUM 


BLE 


LCD97 


LDX 


#LB069 


STX 


,s 


LDX 


#LINBUF+1 


LDB 


#' ,' 


STB 


CHARAC 


LDA 


VALTYP 


BNE 


LCD4B 


LDB 


#SPACE 


BSR 


LCDBC 


CMPA 


#SPACE 


BEQ 


LCD4B 


CMPA 


#"" 


BNE 


LCD5F 


CMPB 


#' ,' 


BNE 


LCD5F 


TFR 


A,B 


STB 


CHARAC 


BRA 


LCD81 


CMPB 


#"" 


BEQ 


LCD74 


CMPA 


#CR 


BNE 


LCD74 


CMPX 


SLINBUF+1 


BEQ 


LCDB0 


LDA 


-1,X 


CMPA 


#LF 


BNE 


LCDB0 


LDA 


#CR 


BEQ 


LCD8E 


CMPA 


CHARAC 


BEQ 


LCD98 


PSHS 


B 


CMPA 


,s+ 


BEQ 


LCD98 


STA 


,x+ 


CMPX 


#LINBUF+LBUFMX 


BNE 


LCD8E 


BSR 


LCDD0 


BNE 


LCD92 


BRA 


LCDAC 



LCD8E BSR LCDD0 

BEQ LCD5F 

LCD92 CLR ,X 

LDX #LINBUF 
LCD97 RTS 

* CHECK FOR ITEM SEPARATOR 

LCD98 CMPA #"" 

BEQ LCDA0 

CMPA #SPACE 

BNE LCD92 

BSR LCDD0 

BNE LCD92 

CMPA #SPACE 

BEO LCDA0 

CMPA #',' 

BEQ LCD92 

LCDAC CMPA #CR 

BNE LCDB8 

BSR LCDD0 

BNE LCD92 

CMPA #LF 

BEQ LCD92 

LCDB8 BSR LCDD6 

BRA LCD92 

LCDBC BSR LCDD0 

BEQ LCDD5 

JSR LC744 

LDB FCBTYP.X 

CMPB #RANFIL 

LBNE LC352 

LCDCB LDB #2*37 

JMP LAC46 



LCDD0 JSR LA176 

TST CINBFL 
LCDD5 RTS 

* MOVE THE INPUT POINTER BACK ONE (DISK FILE) 

LCDD6 PSHS X,B 

JSR LC744 

LDB FCBTYP.X 

CMPB #RANFIL 

BNE LCDEC 

LDD FCBGET.X 

SUBD #$0001 



* CHECK DEVICE NUMBER AND RETURN 

* IF NOT A DISK FILE 

= CHANGE THE RETURN ADDRESS ON THE STACK TO RE-ENTER BASIC'S 
= ROUTINE AT A DIFFERENT PLACE THAN THE CALLING ROUTINE 
POINT X TO THE LINE INPUT BUFFER 

=COMMA IS READ ITEM SEPARATOR (TEMPORARY STRING SEARCH FLAG) 

* GET VARIABLE TYPE AND BRANCH IF 

* IT IS A STRING 

SPACE = NUMERIC SEARCH DELIMITER 

GET AN INPUT CHARACTER 

SPACE? 

YES - GET ANOTHER CHARACTER 

QUOTE? 

NO 

SEARCH CHARACTER = COMMA? 

NO - NUMERIC SEARCH 

* SAVE DOUBLE QUOTE AS 

* THE SEARCH FLAG 

SAVE DOUBLE QUOTES AS FIRST ITEM IN BUFFER 



♦BRANCH IF INPUTTING A STRING VARIABLE 

IS THE INPUT CHARACTER A CARRIAGE RETURN 

NO 

•IF AT THE START OF INPUTBUFFER, CHECK FOR A 

•FOLLOWING LINE FEED AND EXIT ROUTINE 

=IF THE INPUT CHARACTER PRECEEDING THE CR WAS A LINE FEED, 

=THEN INSERT THE CR IN THE INPUT STRING, OTHERWISE 

=CHECK FOR A FOLLOWING LINE FEED AND EXIT THE ROUTINE 

RESTORE CARRIAGE RETURN AS THE INPUT CHARACTER 

•CHECK FOR A NULL (ZERO) INPUT CHARACTER AND 

•IGNORE IT IF IT IS A NULL 

=CHECK TO SEE IF THE INPUT CHARACTER MATCHES 

=EITHER ACCB OR CHARAC AND IF IT DOES, THEN 

=BRANCH TO CHECK FOR ITEM SEPARATOR OR 

=TERMINATOR SEQUENCE AND EXIT ROUTINE 

STORE NEW CHARACTER IN BUFFER 

END OF INPUT BUFFER 

NO 

GET A CHARACTER FROM CONSOLE IN 

EXIT ROUTINE IF BUFFER EMPTY 

CHECK FOR CR OR CR/LF AND EXIT ROUTINE 

GET A CHARACTER FROM CONSOLE IN 
BRANCH IF BUFFER NOT EMPTY 
PUT A ZERO AT END OF BUFFER WHEN DONE 
POINT (X) TO LINBUF - RESET POINTER 



OR TERMINATOR AND EXIT THE INPUT ROUTINE 
OUOTE? 
YES 

SPACE? 

NO - EXIT ROUTINE 
GET A CHARACTER FROM CONSOLE IN 
EXIT ROUTINE IF BUFFER EMPTY 
SPACE? 

YES - GET ANOTHER CHARACTER 
COMMA (ITEM SEPARATOR)? 
YES - EXIT ROUTINE 
CARRIAGE RETURN? 
NO 

GET A CHARACTER FROM CONSOLE IN 
EXIT ROUTINE IF BUFFER EMPTY 
LINE FEED? TREAT CR,LF AS A CR 
YES - EXIT ROUTINE 
BACK UP PTR INPUT POINTER ONE 
EXIT ROUTINE 



GET A CHAR FROM INPUT BUFFER - RETURN IN ACCA 

RETURN IF BUFFER NOT EMPTY 

POINT X TO START OF FILE BUFFER 

GET FILE TYPE 

IS IT RANDOM FILE TYPE? 

'INPUT PAST END OF FILE ERROR 

'WRITE/INPUT PAST END OF RECORD 

JUMP TO THE ERROR HANDLER 



NOT RANDOM 
ERROR IF RANDOM 



GET A CHAR FROM INPUT BUFFER 

SET FLAGS ACCORDING TO CONSOLE INPUT FLAG 



SAVE REGISTERS ON STACK 

POINT X TO PROPER FCB 

GET FILE TYPE OF THIS FCB 

IS IT A RANDOM FILE? 

BRANCH IF NOT A RANDOM FILE 

•GRAB THE RANDOM FILE 'GET' POINTER, 

•MOVE IT BACK ONE AND RESTORE IT 
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1921 


CDE7 


ED 


88 


15 


1922 


CDEA 


35 


94 




1923 


CDEC 


A7 


88 


11 


1924 


CDEF 


63 


88 


10 


1925 


CDF2 


35 


94 




1926 










1927 










1928 


CDF4 


BD 


B6 


54 


1929 


CDF7 


CI 


05 




1930 


CDF9 


10 


25 


E6 4D 


1931 


CDFD 


0F 


06 




1932 


CDFF 


7E 


BC 


14 


1933 










1934 










1935 


CE02 


BD 


Bl 


43 


1936 


CE05 


C6 


05 




1937 


CE07 


BD 


B5 


0F 


1938 


CE0A 


BD 


BC 


35 


1939 


CE0D 


7E 


B6 


9B 


1940 










1941 










1942 


CE10 


8D 


07 




1943 


CE12 


EC 


07 




1944 


CE14 


DD 


52 




1945 


CE16 


7E 


88 


0E 


1946 










1947 










1948 










1949 










1950 


CE19 


96 


6F 




1951 


CE1B 


34 


02 




1952 


CE1D 


BD 


Bl 


43 


1953 


CE20 


BD 


A5 


AE 


1954 


CE23 


0D 


6F 




1955 


CE25 


10 


2F 


E6 21 


1956 


CE29 


BD 


C7 


44 


1957 


CE2C 


35 


02 




1958 


CE2E 


97 


6F 




1959 


CE30 


6D 


00 




1960 


CE32 


10 


27 


D5 C5 


1961 


CE36 


39 






1962 










1963 










1964 


CE37 


8D 


E0 




1965 


CE39 


A6 


01 




1966 


CE3B 


97 


EB 




1967 


CE3D 


E6 


02 




1968 


CE3F 


34 


10 




1969 


CE41 


BD 


CD 


IE 


1970 


CE44 


4A 






1971 


CE45 


C4 


3F 




1972 


CE47 


34 


04 




1973 


CE49 


IF 


89 




1974 


CE4B 


4F 






1975 


CE4C 


BD 


C7 


79 


1976 


CE4F 


EB 


E0 




1977 


CE51 


89 


00 




1978 


CE53 


35 


10 




1979 


CE55 


34 


02 




1980 


CE57 


A6 


00 




1981 


CE59 


81 


40 




1982 


CE5B 


35 


02 




1983 


CE5D 


26 


B5 




1984 










1985 










1986 










1987 










1988 


CE5F 


34 


10 




1989 


CE61 


93 


8A 




1990 


CE63 


27 


03 




1991 


CE65 


83 


00 


01 


1992 


CE68 


8D 


AA 




1993 


CE6A 


D6 


4F 




1994 


CE6C 


27 


04 




1995 


CE6E 


CB 


08 




1996 


CE70 


D7 


4F 




1997 


CE72 


BD 


BC 


5F 


1998 


CE75 


AE 


E4 




1999 


CE77 


EC 


88 


13 


2000 


CE7A 


84 


7F 




2001 


CE7C 


8D 


96 




2002 


CE7E 


0F 


62 




2003 


CE80 


96 


5C 




2004 


CE82 


D6 


4F 




2005 


CE84 


BD 


B9 


C5 


2006 










2007 


CE87 


BD 


BC 


5F 


2008 


CE8A 


35 


10 




2009 


CE8C 


EC 


09 




2010 


CE8E 


8D 


84 




2011 


CE90 


0F 


62 




2012 


CE92 


96 


5C 




2013 


CE94 


D6 


4F 




2014 


CE96 


BD 


BB 


91 


2015 


CE99 


7E 


BC 


EE 


2016 













STD 


FCBGET ; 


X 




PULS 


B,X,PC 




LCDEC 


STA 


FCBCDT, 


X 




COM 


FCBCFL, 


X 




PULS 


B,X,PC 




* CVN 


COMMAND 






CVN 


JSP. 


LB654 






CMPB 


#$05 






LBCS 


LB44A 






CLR 


VALTYP 






JMP 


LBC14 




* MKN) 


- COMMAND 




MKN 


JSP. 


LB143 






LDB 


#$05 






JSR 


LB50F 






JSR 


LBC35 






JMP 


LB69B 




* LOC 


COMMAND 






LOC 


BSR 


LCE19 






LDD 


FCBREC, 


X 


LCE14 


STD 


FPA0+2 






JMP 


L880E 





RESTORE REGISTERS AND RETURN 

SAVE THE CHARACTER IN THE CACHE 

SET THE CACHE FLAG TO $FF - DATA IN CACHE 

RESTORE REGISTERS AND RETURN 



GET LENGTH AND ADDRESS OF STRING 

FIVE BYTES IN A FLOATING POINT NUMBER 

'FC' ERROR IF <> 5 BYTES 

SET VARIABLE TYPE TO NUMERIC 

COPY A PACKED FP NUMBER FROM (X) TO FPA0 



'TM' ERROR IF VALTYP=STRING 
FIVE BYTES IN A FLOATING POINT NUMBER 
RESERVE FIVE BYTES IN STRING SPACE 
PACK FPA0 AND STORE IT IN STRING SPACE 
SAVE STRING DESCRIPTOR ON STRING STACK 



POINT X TO FILE BUFFER 

GET RECORD NUMBER (RANDOM FILE) OR SECTOR CTR (SEQUENTIAL) 

*SAVE ACCD IN BOTTOM 2 BYTES OF FPA0 AND 

♦CONVERT TO FLOATING POINT NUMBER 

STRIP A DEVICE NUMBER FROM A BASIC STATEMENT, SET PRINT 
PARAMETERS ACCORDING TO IT - ERROR IF FILE NOT 

OPEN. RETURN WITH (X) POINTING TO THAT FILE'S FCB 

CE19 LDA DEVNUM * GET CURRENT DEVICE NUMBER AND 

PSHS A * SAVE IT ON THE STACK 

JSR LB143 'TM' ERROR IF VALTYP=STRING 

JSR LA5AE CHECK FOR VALID DEVICE NUMBER/SET PRINT PARAMETERS 

TST DEVNUM * CHECK DEVICE NUMBER 

LBLE LB44A * BRANCH IF NOT DISK FILE 'ILLEGAL FUNCTION CALL' 

JSR LC744 POINT (X) TO FILE BUFFER 

PULS A * GET OLD DEVICE NUMBER OFF OF THE STACK AND 

STA DEVNUM * SAVE IT AS DEVICE NUMBER 

TST FCBTYP.X IS FILE OPEN? 

LBEQ LA3FB 'FILE NOT OPEN' ERROR IF NOT OPEN 

RTS 



* LOF 

LOF 



BSR 

LDA 

STA 

LDB 

PSHS 

JSR 

DECA 

ANDB 

PSHS 

TFR 

CLRA 

JSR 

ADDB 

ADCA 

PULS 

PSHS 

LDA 

CMPA 

PULS 

BNE 



LCE19 

FCBDRV.X 

DCDRV 

FCBFGR.X 

X 

LCD1E 

#$3F 



LC779 
,S+ 

#$00 

X 

A 

FCBTYP.X 

#RANFIL 

A 

LCE14 



CALCULATE LOF FOR A RANDOM FILE 
NUMBER OF RECORDS IN THE FILE. 

PSHS X 

SUBD ZERO 

BEO LCE68 

SUBD #$0001 
CE68 BSR LCE14 



LDB 


FP0EXP 


BEQ 


LCE72 


ADDB 


#$08 


STB 


FP0EXP 


JSR 


LBC5F 


LDX 


,s 


LDD 


FCBLST.X 


ANDA 


#$7F 


BSR 


LCE14 


CLR 


RESSGN 


LDA 


FP1EXP 


LDB 


FP0EXP 


JSR 


LB9C5 



JSR LBC5F 



LDD 


FCBRLN.X 


BSR 


LCE14 


CLR 


RESSGN 


LDA 


FP1EXP 


LDB 


FP0EXP 


JSR 


LBB91 


JMP 


INT 



POINT X TO FILE BUFFER 

* GET DRIVE NUMBER AND SAVE IT 

* IN DSKCON VARIABLE 

GET FIRST GRANULE OF FILE 

SAVE FCB POINTER ON STACK 

FIND TOTAL NUMBER OF GRANULES IN THIS FILE 

SUBTRACT THE LAST GRANULE IN THE FILE 

GET NUMBER OF SECTORS USED IN LAST GRANULE 

SAVE NUMBER OF SECTORS IN LAST GRANULE ON STACK 

* CONVERT ACCA TO POSITIVE 

* 2 BYTE VALUE IN ACCD 

MULT NUMBER OF FULL GRANULES BY 9 
ADD NUMBER SECTORS IN LAST TRACK 
PROPAGATE CARRY TO MS BYTE OF ACCD 
GET FCB POINTER BACK 
SAVE ACCA ON STACK 

* GET FILE TYPE OF THIS FCB AND 

* CHECK TO SEE IF IT'S A RANDOM FILE 
RESTORE ACCA 

IF NOT A RANDOM FILE, THEN THE TOTAL NUMBER OF SECTORS IN THE FILE 
IS THE LENGTH OF THE FILE 

THE LENGTH OF A RANDOM FILE IS THE 

SAVE FCB POINTER ON STACK 

SUBTRACT ZERO FROM ACCD (NUMBER OF SECTORS) 

BRANCH IF ZERO SECTORS 

SUBTRACT ONE SECTOR - THE LAST SECTOR MAY NOT BE IOOZ USED 

PUT ACCD INTO FPA0 

GET EXPONENT OF FPA0 

BRANCH IF FPA0 = 

* ADD 8 TO EXPONENT (MULTIPLY FPA0 BY 

* 256 BYTES7SECTOR) AND SAVE NEW EXPONENT 
SAVE NUMBER OF BYTES IN FULL SECTORS IN FPA1 
POINT X TO FCB 

GET NUMBER OF BYTES IN LAST SECTOR 
MASK OFF THE PRE-SAVED BYTE 
PUT NUMBER BYTES IN LAST SECTOR INTO FPA0 
FORCE SUM SIGN = POSITIVE 

* GET EXPONENTS OF FPA0 AND 

* FPA1 PRIOR TO ADDITION 

ADD NUMBER BYTES IN LAST SECTOR TO NUMBER OF 

BYTES IN FULL SECTORS 

SAVE TOTAL NUMBER OF BYTES IN FPA1 

POINT X TO FCB 

* GET RECORD LENGTH 

* PUT IT INTO FPA0 

FORCE QUOTIENT SIGN = POSITIVE 

* GET EXPONENTS OF FPA0 AND 

* FPA1 PRIOR TO DIVISION 

DIVIDE TOTAL NUMBER OF BYTES BY NUMBER OF BYTES IN A RECORD 
CONVERT FPA0 TO AN INTEGER 
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2017 










2018 


CE9C 


BD 


Bl 


43 


2019 


CE9F 


BD 


B7 


0E 


2020 


CEA2 


CI 


03 




2021 


CEA4 


10 


22 


D7 77 


2022 


CEA8 


D7 


EB 




2023 


CEAA 


BD 


C7 


9D 


2024 


CEAD 


BD 


C7 


55 


2025 


CEB0 


30 


06 




2026 


CEB2 


6F 


E2 




2027 


CEB4 


C6 


44 




2028 


CEB6 


A6 


80 




2029 


CEB8 


43 






2030 


CEB9 


26 


02 




2031 


CEBB 


6C 


E4 




2032 


CEBD 


5A 






2033 


CEBE 


26 


F6 




2034 


CEC0 


35 


04 




2035 


CEC2 


7E 


B4 


F3 


2036 










2037 










2038 


CEC5 


BD 


B7 


0B 


2039 


CEC8 


CI 


03 




2040 


CECA 


10 


22 


D7 51 


2041 


CECE 


F7 


09 


5A 


2042 


CED1 


39 






2043 










2044 










2045 


CED2 


A6 


64 




2046 


CED4 


26 


13 




2047 










2048 


CED6 


AE 


65 




2049 


CED8 


8C 


AF 


9A 


2050 


CEDB 


26 


0C 




2051 


CEDD 


AE 


62 




2052 


CEDF 


8C 


Bl 


66 


2053 


CEE2 


26 


05 




2054 


CEE4 


8E 


CE 


EC 


2055 


CEE7 


AF 


65 




2056 


CEE9 


7E 


88 


46 


2057 










2058 










2059 


CEEC 


35 


02 




2060 


CEEE 


46 






2061 


CEEF 


BD 


Bl 


48 


2062 


CEF2 


10 


27 


ED 3D 


2063 


CEF6 


9E 


52 




2064 


CEF8 


EC 


02 




2065 


CEFA 


10 


83 


09 89 


2066 


CEFE 


25 


07 




2067 


CF00 


B3 


09 


4A 


2068 


CF03 


10 


25 


E0 AA 


2069 










2070 


CF07 


7E 


AF 


A4 


2071 










2072 










2073 


CF0A 


81 


CA 




2074 


CF0C 


27 


1C 




2075 


CF0E 


81 


C8 




2076 


CF10 


10 


26 


B2 28 


2077 










2078 


CF14 


9D 


9F 




2079 


CF16 


81 


2C 




2080 


CF18 


10 


27 


C7 34 


2081 


CF1C 


BD 


B7 


0B 


2082 


CF1F 


CI 


04 




2083 


CF21 


10 


22 


E5 25 


2084 


CF25 


96 


BC 




2085 


CF27 


7E 


96 


2E 


2086 










2087 










2088 


CF2A 


BD 


A4 


29 


2089 


CF2D 


9D 


9F 




2090 


CF2F 


7E 


8C 


IB 


2091 










2092 


CF32 


CI 


34 




2093 


CF34 


10 


26 


B2 30 


2094 


CF38 


BD 


B2 


62 


2095 


CF3B 


96 


6F 




2096 


CF3D 


34 


02 




2097 


CF3F 


BD 


A5 


AE 


2098 


CF42 


BD 


A4 


06 


2099 


CF45 


0D 


6F 




2100 


CF47 


2F 


13 




2101 


CF49 


BD 


C7 


44 


2102 


CF4C 


E6 


00 




2103 


CF4E 


CI 


40 




2104 


CF50 


26 


0A 




2105 


CF52 


35 


02 




2106 


CF54 


97 


6F 




2107 


CF56 


EC 


88 


17 


2108 


CF59 


7E 


B4 


F4 


2109 


CF5C 


BD 


A3 


5F 


2110 


CF5F 


35 


02 




2111 


CF61 


97 


6F 




2112 


CF63 


D6 


6C 





FREE COMMAND 
REE JSR 

JSR 
CMPB 
LBHI 
STB 
JSR 
JSR 
LEAX 
CLR 
LDB 
CEB6 LDA 

COMA 
BNE 
INC 
CEBD DECB 
BNE 
PULS 
JMP 



LB143 

LB70E 

#$03 

LA61F 

DCDRV 

LC79D 

LC755 

FATCON.X 

,-S 

#GRANMX 

,X+ 

LCEBD 
,S 

LCEB6 

B 

LB4F3 



DRIVE COMMAND 



JSR 
CMPB 

LBHI 
STB 
RTS 



EVALEXPB 
#$03 
LA61F 
DEFDRV 



* EVALUATE EXPRESSION RAM VECTOR 
DVEC15 LDA $04, S 
BNE LCEE9 



* NUMBER TYPE CHECK 

♦EVALUATE NUMERIC EXPRESSION AND RETURN VALUE IN ACCB 

ONLY 4 LEGAL DRIVES 

•DEVICE NUMBER' ERROR IF DRIVE NUMBER IS > 3 

SAVE IN DRIVE NUMBER 

GET FILE ALLOCATION TABLE AND STORE IN BUFFER 

POINT X TO START OF FILE ALLOCATION TABLE BUFFER 

MOVE TO FIRST GRANULE DATA BYTE 

SPACE FOR FREE GRANULE COUNTER 

GET MAXIMUM NUMBER OF GRANULES 

GET GRANULE DATA 

*FREE GRANULES $FF 

*BRANCH IF NOT FREE 

INCREMENT FREE GRANULE COUNTER 

DECREMENT GRANULE COUNTER 

BRANCH IF NOT DONE 

GET FREE GRANULE COUNTER TO ACCB 

LOAD ACCB INTO FPA0 



EVALUATE EXPR; RETURN VALUE IN ACCB 
MAX DRIVE NUMBER = 3 
'DEVICE #' ERROR IF DRIVE NUMBER > 3 
SAVE DEFAULT DRIVE NUMBER 



= CHECK STACKED PRECEDENCE FLAG AND IF IT IS NOT AN END 
= OF OPERATION, BRANCH TO EXTENDED BASIC'S EXPRESSION 
= EVALUATION ROUTINE 



* CHECK TWO RETURN ADDRESSES BACK ON THE STACK 

* TO SEE IF THE CALL TO EVALUATE EXPRESSION IS 

* COMING FROM THE 'LET' COMMAND - BRANCH OUT IF 

* NOT COMING FROM 'LET' 

= IF COMING FROM 'LET', REPLACE THE RETURN ADDR 
= WITH THE DISK BASIC 'LET' MODIFIER ADDRESS 
EXTENDED BASIC EXPRESSION EVALUATION 



PULL VARIABLE TYPE OFF OF THE STACK 

SET CARRY IF SIRING, CLEAR CARRY IF NUMERIC 

DO A 'TM' CHECK 

IF NUMERIC VARIABLE, PACK FPA0 INTO VARDES 

POINT X TO STRING DESCRIPTOR 

GET ADDRESS OF SIRING 

* COMPARE TO START OF RANDOM FILE BUFFERS 

* AND BRANCH IF LOWER 

SUBTRACT OUT THE END OF RANDOM FILE BUFFERS 
BRANCH IF STRING STORED IN RANDOM FILE BUFFER 
MOVE IT INTO THE STRING SPACE 
BRANCH BACK TO BASIC S 'LET' COMMAND 



'MODIFIER FOR EXBAS COMMAND INTERPRETATION HANDLER 

DXCVEC CMPA #$CA TOKEN FOR DLOAD? 

BEQ LCF2A YES 

CMPA #$C8 TOKEN FOR PMODE? 

LBNE L813C NO 

* DISK BASIC MODIFIER FOR PMODE - ALLOWS FOR THE RAM THE DOS USES 

JSR GETNCH GET NEXT CHARACTER FROM BASIC 

CMPA #' ,' CHECK FOR COMMA 

LBEO L9650 BRANCH IF COMMA 

JSR EVALEXPB EVALUATE EXPRESSION; RETURN VALUE IN ACCB 

CMPB #$04 CHECK FOR PMODE 4 

LBHI LB44A ' FC ' ERROR IF PMODE > 4 

LDA GRPRAM NUMBER BLOCKS BEFORE GRAPHICS PAGES 

JMP L962E JUMP TO EXEAS' PMODE COMMAND 





LDX 


$05, S 




CMPX 


#LAF9A 




BNE 


LCEE9 




LDX 


$02, S 




CMPX 


#LB166 




BNE 


LCEE9 




LDX 


#LCEEC 




STX 


$05, S 


EE9 


JMP 


XVEC15 


LET 


MODIFIER 




PULS 


A 




RORA 






JSR 


LB148 




LBEQ 


LBC33 




LDX 


FPA0+2 




LDD 


$02, X 




CMPD 


#DFLBUF 




BLO 


LCF07 




SUBD 


FCBADR 




LBCS 


LAFB1 


F07 


JMP 


LAFA4 



* DISK BASIC DLOAD MODIFIER 

LCF2A JSR LA429 

JSR GETNCH 

JMP L8C1B 

DXIVEC 



CMPB 


#($9A-$80)*2 


LBNE 


L8168 


JSR 


LB262 


LDA 


DEVNUM 


PSHS 


A 


JSR 


LA5AE 


JSR 


LA406 


TST 


DEVNUM 


BLE 


LCF5C 


JSR 


LC744 


LDB 


FCBTYP.X 


CMPB 


#RANFIL 


BNE 


LCF5C 


PULS 


A 


STA 


DEVNUM 


LDD 


FCBPUT.X 


JMP 


GIVABF 


JSR 


LA35F 


PULS 


A 


STA 


DEVNUM 


LDB 


DEVPOS 



CLOSE FILES 

GET NEXT CHARACTER FROM BASIC 

JUMP TO EXEAS' DLOAD 

MODIFIED TOKEN FOR POS 

IF NOT POS, GO TO EXBAS SECONDARY COMM HANDLER 

SYNTAX CHECK FOR '(' AND EVALUATE EXPRESSION 

* GET DEVICE NUMBER AND 

* SAVE IT ON STACK 
EVALUATE DEVICE NUMBER 
TEST DEVICE NUMBER 

* CHECK DEVICE NUMBER AND BRANCH 

* IF NOT A DISK FILE 
POINT X TO FCB 

GET FILE TYPE 

DIRECT7RANDOM FILE? 

BRANCH IF NOT A RANDOM FILE 

* RESTORE DEVICE NUMBER 
* 

=GRAB THE 'PUT' DATA ITEM COUNTER AND CONVERT 
=IT TO A FLOATING POINT NUMBER 
SET PRINT PARAMETERS 

* RESTORE DEVICE NUMBER 

=GET PRINT POSITION AND 
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2113 


CF65 


7E 


B4 


F3 




JMP 


LB4F3 


2114 
















2115 










* SAVEM 


COMMAND 


2116 


CF68 


9D 


9F 




LCF568 


JSR 


GETNCH 


2117 


CF6A 


8D 


4F 






BSR 


LCFBB 


2118 


CF6C 


BD 


83 


6C 




JSR 


L836C 


2119 


CF6F 


BD 


83 


6C 




JSR 


L836C 


2120 


CF72 


AC 


62 






CMPX 


$02, S 


2121 


CF74 


10 


25 


E4 D2 




LBCS 


LB44A 


2122 


CF78 


BD 


83 


6C 




JSR 


L836C 


2123 


CF7B 


BD 


A5 


C7 




JSR 


LA5C7 


2124 


CF7E 


CC 


02 


00 




LDD 


#$0200 


2125 


CF81 


FD 


09 


57 




STD 


DFLTYP 


2126 


CF84 


BD 


CA 


04 




JSR 


LCA04 


2127 


CF87 


4F 








CLRA 




2128 


CF88 


8D 


2B 






BSR 


LCFB5 


2129 


CF8A 


EC 


62 






LDD 


$02, S 


2130 


CF8C 


A3 


64 






SUBD 


$04, S 


2131 


CF8E 


C3 


00 


01 




ADDD 


#$0001 


2132 


CF91 


IF 


02 






TFR 


D,Y 


2133 


CF93 


8D 


IE 






BSR 


LCFB3 


2134 


CF95 


EC 


64 






LDD 


$04, S 


2135 


CF97 


8D 


1A 






BSR 


LCFB3 


2136 


CF99 


AE 


64 






LDX 


$04, S 


2137 


CF9B 


A6 


80 




LCF9B 


LDA 


,x+ 


2138 


CF9D 


BD 


CC 


24 




JSR 


LCC24 


2139 


CFA0 


31 


3F 






LEAY 


-1,Y 


2140 


CFA2 


26 


F7 






BNE 


LCF9B 


2141 


CFA4 


86 


FF 






LDA 


#$FF 


2142 


CFA6 


8D 


0D 






BSR 


LCFB5 


2143 


CFA8 


4F 








CLRA 




2144 


CFA9 


5F 








CLRB 




2145 


CFAA 


8D 


07 






BSR 


LCFB3 


2146 


CFAC 


35 


36 






PULS 


A,B,X,Y 


2147 


CFAE 


8D 


03 






BSR 


LCFB3 


2148 


CFB0 


7E 


A4 


2D 




JMP 


LA42D 


2149 
















2150 










* WRITE 


ACCD ' 


FO THE BUFFER 


2151 


CFB3 


8D 


00 




LCFB3 


BSR 


LCFB5 


2152 


CFB5 


BD 


CC 


24 


LCFB5 


JSR 


LCC24 


2153 


CFB8 


IE 


89 






EXG 


A,B 


2154 


CFBA 


39 








RTS 




2155 


CFBB 


8E 


C2 


AF 


LCFBB 


LDX 


#BINEXT 


2156 


CFBE 


7E 


C9 


38 




JMP 


LC938 


2157 
















2158 










* LOADM 


COMMAND 


2159 


CFC1 


9D 


9F 




LCFC1 


JSR 


GETNCH 


2160 


CFC3 


8D 


F6 






BSR 


LCFBB 


2161 


CFC5 


BD 


CA 


07 




JSR 


LCA07 


2162 


CFC8 


FC 


09 


57 




LDD 


DFLTYP 


2163 


CFCB 


83 


02 


00 




SUBD 


#$0200 


2164 


CFCE 


10 


26 


D6 44 




LBNE 


LA616 


2165 


CFD2 


9E 


8A 






LDX 


ZERO 


2166 


CFD4 


9D 


A5 






JSR 


GETCCH 


2167 


CFD6 


27 


06 






BEQ 


LCFDE 


2168 


CFD8 


BD 


B2 


6D 




JSR 


SYNCOMMA 


2169 


CFDB 


BD 


B7 


3D 




JSR 


LB73D 


2170 


CFDE 


9F 


D3 




LCFDE 


STX 


VD3 


2171 


CFE0 


BD 


A5 


C7 




JSR 


LA5C7 


2172 
















2173 










* GET PREAMBLE7POSTAMBLE 


2174 


CFE3 


BD 


CD 


BC 


LCFE3 


JSR 


LCDBC 


2175 


CFE6 


34 


02 






PSHS 


A 


2176 


CFE8 


8D 


29 






BSR 


LD013 


2177 


CFEA 


IF 


02 






TFR 


D,Y 


2178 


CFEC 


8D 


25 






BSR 


LD013 


2179 


CFEE 


D3 


[13 






ADDD 


VD3 


2180 


CFF0 


DD 


9D 






STD 


EXECJP 


2181 


CFF2 


IF 


01 






TFR 


D,X 


2182 


CFF4 


A6 


E0 






LDA 


,S+ 


2183 


CFF6 


10 


26 


D4 33 




LBNE 


LA42D 


2184 
















2185 










* GET RECORD 1 


JYTE(S) 


2186 


CFFA 


BD 


C5 


C4 


LCFFA 


JSR 


LC5C4 


2187 


CFFD 


D6 


70 






LDB 


CINBFL 


2188 


CFFF 


27 


03 






BEQ 


LD004 


2189 


D001 


7E 


C3 


52 




JMP 


LC352 


2190 


D004 


A7 


84 




LD004 


STA 


,x 


2191 


D006 


Al 


80 






CMPA 


,x+ 


2192 


D008 


27 


03 






BEQ 


LD00D 


2193 


D00A 


7E 


D7 


09 




JMP 


LD709 


2194 


D00D 


31 


3F 




LD00D 


LEAY 


-l.Y 


2195 


D00F 


26 


E9 






BNE 


LCFFA 


2196 


D011 


20 


D0 






BRA 


LCFE3 


2197 










* READ TWO BYTES FROM BUFFER 


2198 


D013 


8D 


00 




LD013 


BSR 


LD015 


2199 


D015 


BD 


CD 


BC 


LD015 


JSR 


LCDBC 


2200 


D018 


IE 


89 






EXG 


A,B 


2201 


D01A 


39 








RTS 




2202 
















2203 










* RENAME COMMAND 


2204 


D01B 


9E 


A6 




RENAME 


LDX 


CHARAD 


2205 


D01D 


34 


10 






PSHS 


X 


2206 


D01F 


8D 


35 






BSR 


LD056 


2207 


D021 


96 


EB 






LDA 


DCDRV 


2208 


D023 


34 


02 






PSHS 


A 



=CONVERT IT TO FLOATING POINT NUMBER IN FPA0 



GET NEXT INPUT CHARACTER 

GET FILENAME, ETC. 

EVALUATE EXPRESSION, PUT II (2 BYTES) ON STACK 

DITTO 

COMPARE END ADDRESS TO START ADDRESS 

IF START > END, THEN 'ILLEGAL FUNCTION CALL' 

EVAL EXPRESSION (TRANSFER ADDRESS), PUT ON STACK 

SYNTAX ERROR IF ANY MORE CHARS ON THIS LINE 

* FILE TYPE=2, ASCII FLAG = CRUNCHED (0) 

GET NEXT UNOPEN FILE AND INITIALIZE FCB 

*ZERO FLAG - FIRST BYTE OF PREAMBLE 

*WRITE A BYTE TO BUFFER 

GET END ADDRESS 

SUBTRACT THE START ADDRESS 

THE SAVED DATA BLOCK WILL INCLUDE BOTH THE FIRST AND LAST BYTES 

SAVE LENGTH IN Y 

FIRST ARGUMENT OF PREAMBLE 



SECOND PREAMBLE ARGUMENT 



WRITE FILE LENGTH TO BUFFER 
GET THE START ADDRESS 
WRITE OUT THE START ADDRESS 
GET START ADDRESS 
GRAB A BYTE 
WRITE IT OUT 
DECREMENT BYTE COUNTER 
BRANCH IF ALL BYTES NOT DONE 
FIRST BYTE OF POSTAMBLE 
WRITE IT OUT - EOF RECORD 

* FIRST ARGUMENT OF POSTAMBLE IS 

* A DUMMY - ZERO VALUE 

WRITE OUT POSTAMBLE FIRST ARGUMENT 

GET CONTROL ADDRESSES FROM THE STACK 

WRITE OUT THE TRANSFER ADDRESS - 2ND ARGUMENT 

GO CLOSE ALL FILES 



WRITE ACCA TO BUFFER, THEN SWAP ACCA, ACCB 
WRITE ACCA TO BUFFER 
SWAP ACCA, ACCB 



POINT TO .BIN EXTENSION 
GET FILENAME, ETC. 



GET NEXT INPUT CHARACTER 

GET FILENAME, ETC. 

OPEN NEXT AVAILABLE FILE FOR INPUT 

GET FILE TYPE AND ASCII FLAG 

FOR LOADM FILE: TYPE=2, ASCII FLAG=0 

'BAD FILE MODE' ERROR 

ZERO OUT X REG - DEFAULT VALUE OF OFFSET 

GET CURRENT CHARACTER FROM BASIC 

BRANCH IF END OF LINE - NO OFFSET 

SYNTAX CHECK FOR COMMA 

EVALUATE EXPRESSION 

STORE OFFSET IN VD3 

SYNTAX ERROR IF OTHER CHARACTERS ON LINE 



GET FIRST BYTE 

SAVE IT ON THE STACK 

GET FIRST ARGUMENT 

SAVE IT IN Y 

GET THE SECOND ARGUMENT 

ADD IT TO THE OFFSET 

STORE IT IN THE JUMP ADDRESS OF THE EXEC COMMAND 

SAVE IT IN X 

GET THE FIRST BYTE OFF OF THE STACK 

CLOSE FILE IF POSTAMBLE (EOF) 



GET BYTE FROM BUFFER 
GET STATUS OF CONSOLE IN BUFFER 
BRANCH IF BUFFER NOT EMPTY 
'INPUT PAST END OF FILE' ERROR 
STORE BYTE IN MEMORY 

*TEST TO SEE IF IT STORED PROPERLY AND 
*BRANCH IF PROPER STORE (NOT IN ROM OR BAD RAM) 
'I/O ERROR' IF BAD STORE 
DECREMENT BYTE COUNT 
GET NEXT BYTE IF NOT DONE 
READ ANOTHER PRE/POST AMBLE 
RETURN THEM IN ACCD 

READ A BYTE, SAVE IT IN ACCB 

GET A CHARACTER FROM INPUT BUFFER, RETURN IT IN ACCA 

SWAP ACCA, ACCB 



* SAVE CURRENT INPUT POINTER 

* ON THE STACK 

GET FILENAME OF SOURCE FILE 

* SAVE DRIVE NUMBER 

* ON THE STACK 



DISK BASIC UNRAVELLED II 
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2209 


D025 


8D 


2A 




2210 


D027 


35 


02 




2211 


D029 


91 


EB 




2212 


D02B 


10 


26 


E4 IB 


2213 


D02F 


8D 


28 




2214 


D031 


35 


10 




2215 


D033 


9F 


A6 




2216 


D035 


8D 


IF 




2217 


D037 


BD 


C6 


8C 


2218 


D03A 


BD 


C6 


E5 


2219 


D03D 


8D 


12 




2220 


D03F 


8E 


09 


4C 


2221 


D042 


FE 


09 


74 


2222 


D045 


C6 


0B 




2223 


D047 


BD 


A5 


9A 


2224 


D04A 


C6 


03 




2225 


D04C 


D7 


EA 




2226 


D04E 


7E 


[16 


F2 


2227 










2228 










2229 


D051 


C6 


A5 




2230 


D053 


BD 


B2 


6F 


2231 


D056 


7E 


C9 


35 


2232 


D059 


BD 


C6 


8C 


2233 


D05C 


C6 


42 




2234 


D05E 


7D 


09 


73 


2235 


D061 


10 


26 


DB El 


2236 


D065 


39 






2237 










2238 










2239 


D066 


10 


27 


E8 EE 


2240 


D06A 


8D 


03 




2241 


D06C 


0F 


6F 




2242 


D06E 


39 






2243 


D06F 


81 


23 




2244 


D071 


26 


0F 




2245 


D073 


BD 


A5 


A5 


2246 


D076 


BD 


A4 


06 


2247 


D079 


9D 


A5 




2248 


D07B 


10 


27 


E8 D9 


2249 


D07F 


BD 


B2 


6D 


2250 


D082 


BD 


Bl 


56 


2251 


D085 


96 


06 




2252 


D087 


26 


IE 




2253 


D089 


BD 


BD 


D9 


2254 


D08C 


BD 


B5 


16 


2255 


D08F 


BD 


B9 


9F 


2256 










2257 










2258 


D092 


9D 


A5 




2259 


D094 


10 


27 


E8 C0 


2260 


D098 


86 


2C 




2261 


D09A 


BD 


A3 


5F 


2262 


D09D 


0D 


6E 




2263 


D09F 


27 


02 




2264 


D0A1 


86 


0D 




2265 


D0A3 


8D 


14 




2266 


D0A5 


20 


D8 




2267 










2268 










2269 


D0A7 


8D 


07 




2270 


D0A9 


BD 


B9 


9F 


2271 


D0AC 


8D 


02 




2272 


D0AE 


20 


E2 




2273 










2274 










2275 


D0B0 


BD 


A3 


5F 


2276 


D0B3 


0D 


6E 




2277 


D0B5 


26 


B7 




2278 


D0B7 


86 


22 




2279 


D0B9 


7E 


A2 


82 


2280 










2281 










2282 


D0BC 


BD 


C8 


2E 


2283 


D0BF 


4F 






2284 


D0C0 


5F 






2285 


D0C1 


34 


16 




2286 


D0C3 


9D 


A5 




2287 


D0C5 


26 


02 




2288 


D0C7 


35 


96 




2289 


D0C9 


BD 


B7 


38 


2290 


D0CC 


34 


14 




2291 










2292 










2293 










2294 










2295 


D0CE 


4F 






2296 


D0CF 


E3 


63 




2297 


D0D1 


25 


07 




2298 


D0D3 


AE 


65 




2299 


D0D5 


10 


A3 


09 


2300 


D0D8 


23 


05 




2301 


D0DA 


C6 


44 




2302 


D0DC 


7E 


AC 


46 


2303 


D0DF 


EE 


63 




2304 


D0E1 


ED 


63 





BSR 
PULS 
CMPA 
LBNE 

BSR 
PULS 

STX 
BSR 
JSR 
JSR 
BSR 
LDX 
LDU 
LDB 
JSR 
LDB 
STB 
JMP 



LD051 

A 

DCDRV 

LB44A 

LD059 

X 

CHARAD 

LD056 

LC68C 

LC6E5 

LD051 

#DNAMBF 

V974 

#$0B 

LA59A 

#$03 

DCOPC 

LD6F2 



SYNTAX CHECK FOR 'TO' AND GET NEW FILENAME 

GET SOURCE DRIVE NUMBER 

COMPARE TO NEW FILE DRIVE NUMBER 

'FC' ERROR IF F1IES ON DIFFERENT DRIVES 

VERIFY THAT NEW FILE DOES NOT ALREADY EXIST 

* RESTORE INPUT POINTER 
* 

GET SOURCE FILENAME AGAIN 

SCAN DIRECTORY FOR SOURCE FILENAME 

■NE' ERROR IF NOT FOUND 

SYNTAX CHECK FOR 'TO' AND GET NEW FILENAME 

POINT X TO FILENAME 

POINT U TO DIRECTORY ENTRY OF SOURCE FILE 

11 CHARACTERS IN FILENAME AND EXTENSION 

COPY NEW FILENAME TO SOURCE FILE DIRECTORY RAM IMAGE 

* GET WRITE OP CODE AND 

* SAVE IN DSKCON VARIABLE 
WRITE NEW DIRECTORY SECTOR 



DO A SYNTAX CHECK FOR 'TO AND STRIP A FILENAME FROM BASIC 



LD056 
LD059 



LDB 
JSR 
JMP 
JSR 
LDB 
TST 



#$A5 

LB26F 

LC935 

LC68C 

#33*2 

V973 



LBNE LAC46 
RTS 



WRITE COMMAND 



LD06E 
LD06F 



LD07F 
LD082 



LBEQ LB958 

BSR LD06F 

CLR DEVNUM 

RTS 

CMPA #'#' 



LD082 

LA5A5 

LA406 

GETCCH 

LBEQ LB958 

JSR SYNCOMMA 

LB156 

VALTYP 

LD0A7 

LBDD9 

LB516 

LB99F 



BNE 
JSR 
JSR 
JSR 



JSR 
LDA 
BNE 
JSR 
JSR 
JSR 



PRINT ITEM SEPARATOR TO CONSOLE OUT 

D092 JSR GETCCH 

LBEO LB958 

LDA #',' 

JSR LA35F 

TST PRTDEV 

BEQ LD0A3 

LDA #CR 

D0A3 BSR LD0B9 

BRA LD07F 



PRINT A STRING TO CONSOLE OUT 

D0A7 BSR LD0B0 

JSR LB99F 

BSR LD0B0 

BRA LD092 



PRINT STRING DELIMITER ( " ) TO CONSOLE OUT 



JSR 
TST 

BNE 

LDA 

JMP 



LA35F 

PRTDEV 

LD06E 

#"" 

LA282 



FIELD COMMAND 
IELD JSR LC 
CLRA 
CLRB 
PSHS 
D0C3 JSR 
BNE 
PULS 
D0C9 JSR 
PSHS 



X,B,A 

GETCCH 

LD0C9 

A,B,X,PC 

LB738 

X,B 



AT THIS POINT THE STACK WI 
,S = FIELD LENGTH 1 2,S 
3 4,S = TOTAL FIELD LENGTH 
CLRA 

ADDD $03, S 
BLO LD0DA 
LDX $05, S 
CMPD FCBRLN.X 
BLS LD0DF 
D0DA LDB #34*2 
JMP LAC46 
D0DF LDU $03, S 
STD $03, S 



'TO' TOKEN 

SYNTAX CHECK FOR 'TO' 

GET FILENAME FROM BASIC 

SCAN DIRECTORY FOR FILENAME 

'FILE ALREADY EXISTS' ERROR 

CHECK FOR A MATCH 

'AE' ERROR IF FILE IN DIRECTORY 



PRINT CARRIAGE RETURN TO CONSOLE OUT IF END OF LINE 

GO WRITE AN ITEM LIST 

SET DEVICE NUMBER TO SCREEN 

CHECK FOR DEVICE NUMBER FLAG 

DEFAULT TO CURRENT DEVICE NUMBER IF NONE GIVEN 

SET DEVICE NUMBER; CHECK VALIDITY 

MAKE SURE SELECTED FILE IS AN OUTPUT FILE 

GET CURRENT INPUT CHARACTER 

PRINT CR TO CONSOLE OUT IF END OF LINE 

SYNTAX CHECK FOR COMMA 

EVALUATE EXPRESSION 

GET VARIABLE TYPE 

BRANCH IF STRING 

CONVERT FP NUMBER TO ASCII STRING 

PUT ON TEMPORARY STRING STACK 

PRINT STRING TO CONSOLE OUT 



GET CURRENT CHARACTER 

PUT CR TO CONSOLE OUT IF END OF LINE 

COMMA: NON-CASSETTE SEPARATOR 

SET PRINT PARAMETERS 

* GET CONSOLE PRINT DEVICE AND 

* BRANCH IF NOT CASSETTE 

GET CARRIAGE RETURN - CASSETTE ITEM SEPARATOR 
SEND SEPARATOR TO CONSOLE OUT 
GET NEXT ITEM 



PRINT LEADING STRING DELIMITER (") 
PRINT STRING TO CONSOLE OUT 
PRINT ENDING STRING DELIMITER (") 
GO PRINT SEPARATOR 



SET PRINT PARAMETERS 

* GET CONSOLE PRINT DEVICE AND 

* RETURN IF CASSETTE 

QUOTE: NON-CASSETTE STRING DELIMITER 
SEND TO CONSOLE OUT 



EVALUATE DEVICE NUMBER S VERIFY RANDOM FILE OPEN 

* CLEAR TOTAL FIELD LENGTH COUNTER 

SAVE FCB POINTER I. INITIALIZE TOTAL FIELD LENGTH TO ZERO 

GET CURRENT INPUT CHARACTER 

BRANCH IF NOT END OF LINE 

CLEAN UP STACK AND RETURN 

SYNTAX CHECK FOR COMMA, EVALUATE EXPRESSION 

SAVE FIELD LENGTH (ACCB) ON STACK, X IS A DUMMY WHICH WILL 

RESERVE 2 BYTES FOR THE ADDRESS WHICH WILL BE CALCULATED BELOW 
LL HAVE THE FOLLOWING INFORMATION ON IT: 
= RANDOM FILE BUFFER ADDRESS 
5 6,S = FCD POINTER 

CLEAR MS BYTE 

ADD FIELD LENGTH TO TOTAL FIELD LENGTH COUNTER 

■FO' ERROR IF SUM > $FFFF 

POINT X TO FCB 

* COMPARE TO RECORD LENGTH & BRANCH IF 
*TOTAL FIELD LENGTH < RECORD LENGTH 
'FIELD OVERFLOW ERROR 
JUMP TO ERROR DRIVER 

LOAD U WITH OLD TOTAL LENGTH OF ALL FIELDS 
SAVE NEW TOTAL FIELD LENGTH 
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2305 


D0E3 


EC 


0B 






LDD 


FCBBUF.X 




2306 


D0E5 


33 


CB 






LEAU 


D,U 




2307 


D0E7 


EF 


61 






STU 


$01, S 




2308 


D0E9 


C6 


FF 






LDB 


#$FF 




2309 


D0EB 


BD 


B2 


6F 




JSR 


LB26F 




2310 


D0EE 


C6 


A7 






LDB 


#$A7 




2311 


D0F0 


BD 


B2 


6F 




JSR 


LB26F 




2312 


D0F3 


BD 


B3 


57 




JSR 


LB357 




2313 


DO F6 


BD 


Bl 


46 




JSR 


LB146 




2314 


D0F9 


35 


44 






PULS 


B,U 




2315 


D0FB 


E7 


84 






STB 


,x 




2316 


D0FD 


EF 


02 






STU 


$02, X 




2317 


D0FF 


20 


C2 






BRA 


LD0C3 




2318 


















2319 










* RSET 


COMMAND 




2320 


D101 


86 






RSET 


LDA 


#$4F 




2321 


















2322 










* LSET 


COMMAND 




2323 


D102 


4F 






LSET 


CLRA 






2324 


D103 


34 


02 






PSHS 


A 




2325 


D105 


BD 


B3 


57 




JSR 


LB357 




2326 


D108 


BD 


Bl 


46 




JSR 


LB146 




2327 


D10B 


34 


10 






PSHS 


X 




2328 


D10D 


AE 


02 






LDX 


$02, X 




2329 


D10F 


8C 


09 


89 




CMPX 


#DFLBUF 




2330 


D112 


25 


05 






BLO 


LD119 




2331 


D114 


BC 


09 


4A 




CMPX 


FCBADR 




2332 


D117 


25 


05 






BLO 


LD11E 




2333 


D119 


C6 


46 




LD119 


LDB 


#2*35 




2334 


DUB 


7E 


AC 


46 




JMP 


LAC46 




2335 


due 


C6 


B3 




LD11E 


LDB 


#$B3 




2336 


D120 


BD 


B2 


6F 




JSR 


LB26F 




2337 


D123 


BD 


87 


48 




JSR 


L8748 




2338 










* 








2339 


D126 


35 


20 






PULS 


Y 




2340 


D128 


A6 


A4 






LDA 


,Y 




2341 


D12A 


27 


2E 






BEQ 


LD15A 




2342 


D12C 


34 


04 






PSHS 


B 




2343 


D12E 


C6 


20 






LDB 


#SPACE 




2344 


D130 


EE 


22 






LDU 


$02, Y 




2345 










* FILL 


THE FIELDED STRING WITH 


BLANKS 


2346 


D132 


E7 


C0 




LD132 


STB 


,u+ 




2347 


D134 


4A 








DECA 






2348 


D135 


26 


FB 






BNE 


LD132 




2349 


D137 


E6 


E0 






LDB 


,s+ 




2350 


D139 


27 


IF 






BEQ 


LD15A 




2351 


D13B 


El 


A4 






CMPB 


,Y 




2352 


D13D 


25 


04 






BLO 


LD143 




2353 


D13F 


E6 


A4 






LDB 


,Y 




2354 


D141 


6F 


E4 






CLR 


,s 




2355 










* 








2356 










* 








2357 


D143 


EE 


22 




LD143 


LDU 


$02, Y 




2358 


D145 


6D 


E0 






TST 


,s+ 




2359 


D147 


27 


0E 






BEQ 


LD157 




2360 










* RSET 


ROUTINE 




2361 


D149 


34 


04 






PSHS 


B 




2362 


D14B 


4F 








CLRA 






2363 


D14C 


50 








NEGB 






2364 


D14D 


82 


00 






SBCA 


#$00 




2365 


D14F 


EB 


A4 






ADDB 


,Y 




2366 


D151 


89 


00 






ADCA 


#$00 




2367 


D153 


33 


CB 






LEAU 


D,U 




2368 










* 








2369 










* 








2370 


D155 


35 


04 






PULS 


B 




2371 


D157 


7E 


A5 


9A 


LD157 


JMP 


LA59A 




2372 


D15A 


35 


82 




LD15A 


PULS 


A, PC 




2373 


















2374 










* FILES COMMAND 




2375 


D15C 


BD 


95 


AC 


FILES 


JSR 


L95AC 




2376 


D15F 


FC 


09 


4A 




LDD 


FCBADR 




2377 


D162 


83 


09 


89 




SUBD 


#DFLBUF 




2378 


D165 


34 


06 






PSHS 


B,A 




2379 


D167 


F6 


09 


5B 




LDB 


FCBACT 




2380 


D16A 


34 


04 






PSHS 


B 




2381 


D16C 


9D 


A5 






JSR 


GETCCH 




2382 


D16E 


81 


2C 






CMPA 


#' ,' 




2383 


D170 


27 


0F 






BEQ 


LD181 




2384 


D172 


BD 


B7 


0B 




JSR 


EVALEXPB 




2385 


D175 


CI 


0F 






CMPB 


#15 




2386 


D177 


10 


22 


E2 CF 




LBHI 


LB44A 




2387 


D17B 


E7 


E4 






STB 


,s 




2388 


D17D 


9D 


A5 






JSR 


GETCCH 




2389 


D17F 


27 


08 






BEQ 


LD189 




2390 


D181 


BD 


B2 


6D 


LD181 


JSR 


SYNCOMMA 




2391 


D184 


BD 


B3 


E6 




JSR 


LB3E6 




2392 


D187 


ED 


61 






STD 


$01, S 




2393 


D189 


BD 


CA 


E9 


LD189 


JSR 


DVEC7 




2394 


D18C 


E6 


E4 






LDB 


,S 




2395 


D18E 


34 


04 






PSHS 


B 




2396 


D190 


CC 


09 


89 




LDD 


#DFLBUF 




2397 


D193 


E3 


62 






ADDD 


$02, S 




2398 


D195 


25 


71 






BLO 


LD208 




2399 


D197 


ED 


62 






STD 


$02, S 




2400 










* RESERVE SPACE FOR FCBS 





POINT ACCD TO START OF RANDOM FILE BUFFER 

♦POINT U TO THIS FIELD'S SLOT IN THE RANDOM 

*FILE BUFFER AND SAVE IT ON THE STACK 

SECONDARY TOKEN 

SYNTAX CHECK FOR SECONDARY TOKEN 

'AS' TOKEN 

SYNTAX CHECK FOR 'AS' TOKEN 

EVALUATE VARIABLE 

'TM' ERROR IF NUMERIC VARIABLE 

* PULL STRING ADDRESS AND LENGTH 

* OFF OF THE STACK AND SAVE THEM 

* IN STRING DESCRIPTOR 

CHECK FOR ANOTHER FIELD SPECIFICATION 



SKIP ONE BYTE 



LSET FLAG = 

SAVE RSET($4F),LSET(00) FLAG ON THE STACK 

EVALUATE FIELD STRING VARIABLE 

'TM' ERROR IF NUMERIC VARIABLE 

SAVE STRING DESCRIPTOR ON STACK 

POINT X TO ADDRESS OF STRING 

* COMPARE STRING ADDRESS TO START OF RANDOM 

* FILE BUFFER; 'SE' ERROR IF < RANDOM FILE BUFFER 

= COMPARE STRING ADDRESS TO TOP OF RANDOM FILE BUFFER 
= AREA - BRANCH IF STRING IN RANDOM FILE BUFFER 
'SET TO NON-FIELDED STRING' ERROR 
JUMP TO ERROR HANDLER 

* SYNTAX CHECK FOR '=' TOKEN 

=EVALUATE DATA STRING EXPRESSION; RETURN WITH X 

=POINTING TO STRING; ACCB = LENGTH 

POINT Y TO FIELD STRING DESCRIPTOR 

GET LENGTH OF FIELD STRING 

RETURN IF NULL STRING 

SAVE LENGTH OF DATA STRING ON STACK 

PREPARE TO FILL DATA STRING WITH BLANKS 

POINT U TO FIELD STRING ADDRESS 

STORE A SPACE IN FIELDED STRING 

DECREMENT LENGTH COUNTER 

KEEP FILLING W/SPACES IF NOT DONE 

*GET THE LENGTH OF THE DATA STRING AND 

♦RETURN IF IT IS NULL (ZERO) 

=COMPARE LENGTH OF DATA STRING TO LENGTH OF FIELD 

=STRING, BRANCH IF FIELD STRING > DATA STRING 

*GET THE LENGTH OF THE FIELD STRING AND FORCE THE 

♦RSET/LSET FLAG TO LSET (0) IF DATA STRING LENGTH IS 

*>= THE FIELD STRING LENGTH. THIS WILL CAUSE THE RIGHT 

*SIDE OF THE DATA STRING TO BE TRUNCATED 

LOAD U WITH THE ADDRESS OF THE FIELD STRING 

* GET THE RSET/LSET FLAG FROM THE STACK 

* AND BRANCH IF LSET 

SAVE THE NUMBER OF BYTES TO MOVE INTO THE FIELD STRING 

= TAKE THE 2'S COMPLEMENT OF AN UNSIGNED 

= NUMBER IN ACCB - LEAVE THE DOUBLE BYTE SIGNED 

= RESULT IN ACCD 

* ADD THE LENGTH OF THE FIELD STRING TO THE INVERSE 

* OF THE NUMBER OF BYTES TO BE MOVED 

=ADD RESULT TO START OF FIELD STRING. NOW U 

=WILL POINT TO (-NUMBER OF BYTES TO MOVE) 

=FROM THE RIGHT SIDE OF THE FIELD STRING 

GET THE NUMBER OF BYTES TO MOVE 

MOVE ACCB BYTES FROM X TO U (DATA TO FIELD STRING) 

PULL LSET/RSET FLAG OFF OF STACK AND RETURN 



RESET SAM DISPLAY PAGE AND VDG MODE 

GET START OF FILE BUFFERS 

SUBTRACT THE START OF RANDOM FILE BUFFER SPACE 

SAVE DEFAULT VALUE OF RANDOM FILE BUFFER SPACE ON STACK 

* GET CURRENT NUMBER OF FCBS 

* AND SAVE ON THE STACK (DEFAULT VALUE) 
GET CURRENT INPUT CHAR 

CHECK FOR COMMA 

BRANCH IF COMMA - NO BUFFER NUMBER PARAMETER GIVEN 

EVALUATE EXPRESSION (BUFFER NUMBER) 

15 FCBS MAX 

BRANCH IF > 15 - 'ILLEGAL FUNCTION CALL' 

SAVE NUMBER OF FCBS ON STACK 

CHECK CURRENT INPUT CHAR 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA 

EVALUATE EXPRESSION, RETURN VALUE IN ACCD 

SAVE RANDOM FILE BUFFER SIZE ON STACK 

CLOSE FILES 

* GET THE NUMBER OF BUFFERS TO MAKE AND 

* INITIALIZE A BUFFER COUNTER ON THE STACK 
GET START OF RANDOM FILE BUFFERS 

ADD THE NEWLY SPECIFIED RANDOM FILE BUFFER SPACE 
'OUT OF MEMORY' ERROR IF > $FFFF 
SAVE START OF FCBS 
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2401 


D199 


C3 


01 


19 


LD199 


ADDD 


#FCBLEN 


2402 


D19C 


25 


6A 






BLO 


LD208 


2403 


D19E 


6A 


E4 






DEC 


,s 


2404 


D1A0 


2A 


F7 






BPL 


LD199 


2405 










* 






2406 










* 






2407 










* 






2408 


D1A2 


5D 








TSTB 




2409 


D1A3 


27 


03 






BEQ 


LD1A8 


2410 


D1A5 


4C 








INCA 




2411 


D1A6 


27 


60 






BEQ 


LD208 


2412 


D1A8 


85 


01 




LD1A8 


BITA 


#$01 


2413 


D1AA 


27 


03 






BEQ 


LD1AF 


2414 


D1AC 


4C 








INCA 




2415 


D1AD 


27 


59 






BEQ 


LD208 


2416 


D1AF 


A7 


E4 




LD1AF 


STA 


,s 


2417 


D1B1 


DC 


IB 






LDD 


VARTAB 


2418 


D1B3 


90 


BC 






SUBA 


GRPRAM 


2419 










* 






2420 


D1B5 


AB 


E4 






ADDA 


,s 


2421 


D1B7 


25 


4F 






BLO 


LD208 


2422 


D1B9 


IF 


01 






TFR 


D,X 


2423 


D1BB 


4C 








INCA 




2424 










* 






2425 


D1BC 


27 


4A 






BEQ 


LD208 


2426 


D1BE 


10 


93 


21 




CMPD 


FRETOP 


2427 


D1C1 


24 


45 






BHS 


LD208 


2428 


D1C3 


4A 








DECA 




2429 


D1C4 


93 


IB 






SUBD 


VARTAB 


2430 


D1C6 


D3 


19 






ADDD 


TXTTAB 


2431 


D1C8 


IF 


02 






TFR 


D,Y 


2432 


D1CA 


A6 


E4 






LDA 


,s 


2433 


D1CC 


90 


BC 






SUBA 


GRPRAM 


2434 


DICE 


IF 


89 






TFR 


A,B 


2435 


D1D0 


9B 


BA 






ADDA 


BEGGRP 


2436 


D1D2 


97 


BA 






STA 


BEGGRP 


2437 


D1D4 


DB 


B7 






ADDB 


ENDGRP 


2438 


D1D6 


D7 


B7 






STB 


ENDGRP 


2439 


D1D8 


35 


46 






PULS 


A,B,U 


2440 










* 






2441 


D1DA 


97 


BC 






STA 


GRPRAM 


2442 


D1DC 


F7 


09 


5B 




STB 


FCBACT 


2443 


D1DF 


FF 


09 


4A 




STU 


FCBADR 


2444 


D1E2 


96 


68 






LDA 


CURLIN 


2445 


D1E4 


4C 








INCA 




2446 


D1E5 


27 


08 






BEQ 


LD1EF 


2447 


D1E7 


IF 


20 






TFR 


Y,D 


2448 


D1E9 


93 


19 






SUBD 


TXTTAB 


2449 


D1EB 


D3 


A6 






ADDD 


CHARAD 


2450 


DIED 


DD 


A6 






STD 


CHARAD 


2451 


D1EF 


DE 


IB 




LD1EF 


LDU 


VARTAB 


2452 


D1F1 


9F 


IB 






STX 


VARTAB 


2453 


D1F3 


11 


93 


IB 




CMPU 


VARTAB 


2454 


D1F6 


22 


13 






BHI 


LD20B 


2455 










* MOVE 


BASIC 


'ROGRAM II 


2456 


D1F8 


A6 


C2 




LD1F8 


LDA 


,-u 


2457 


D1FA 


A7 


82 






STA 


,-x 


2458 


D1FC 


11 


93 


19 




CMPU 


TXTTAB 


2459 


D1FF 


26 


F7 






BNE 


LD1F8 


2460 


D201 


10 


9F 


19 




STY 


TXTTAB 


2461 


D204 


6F 


3F 






CLR 


-1,Y 


2462 


D206 


20 


13 






BRA 


LD21B 


2463 


D208 


7E 


AC 


44 


LD208 


JMP 


LAC44 


2464 










* MOVE 


BASIC 


'ROGRAM II 


2465 


D20B 


DE 


19 




LD20B 


LDU 


TXTTAB 


2466 


D20D 


10 


9F 


19 




STY 


TXTTAB 


2467 


D210 


6F 


3F 






CLR 


-1,Y 


2468 


D212 


A6 


C0 




LD212 


LDA 


,u+ 


2469 


D214 


A7 


A0 






STA 


,Y+ 


2470 


D216 


10 


9C 


IB 




CMPY 


VARTAB 


2471 


D219 


26 


F7 






BNE 


LD212 


2472 
















2473 










* CLOSE 


: ALL FCBS AND R[ 


2474 


D21B 


CE 


09 


28 


LD21B 


LDU 


#FCBV1 


2475 


D21E 


BE 


09 


4A 




LDX 


FCBADR 


2476 


D221 


5F 








CLRB 




2477 


D222 


AF 


CI 




LD222 


STX 


,U++ 


2478 


D224 


6F 


00 






CLR 


FCBTYP.X 


2479 


D226 


30 


89 


01 19 




LEAX 


FCBLEN.X 


2480 


D22A 


5C 








INCB 




2481 


D22B 


Fl 


09 


5B 




CMPB 


FCBACT 


2482 


D22E 


23 


F2 






BLS 


LD222 


2483 


D230 


7E 


96 


CB 




JMP 


L96CB 


2484 
















2485 










* UNLOAD COMMAND 


2486 


D233 


8D 


1A 




UNLOAD 


BSR 


LD24F 


2487 


D235 


5F 








CLRB 




2488 


D236 


5C 






LD236 


INCB 




2489 


D237 


BD 


C7 


49 




JSR 


LC749 


2490 


D23A 


27 


0D 






BEQ 


LD249 


2491 


D23C 


A6 


01 






LDA 


FCBDRV.X 


2492 


D23E 


91 


EB 






CMPA 


DCDRV 


2493 


D240 


26 


07 






BNE 


LD249 


2494 


D242 


34 


04 






PSHS 


B 


2495 


D244 


BD 


CB 


06 




JSR 


LCB06 


2496 


D247 


35 


04 






PULS 


B 



FCBLEN REQUIRED FOR EACH BUFFER 
'OUT OF MEMORY' ERROR IF > $FFFF 
DECREMENT BUFFER COUNTER 

*BRANCH IF NOT DONE - THE BPL WILL SET UP ONE MORE BUFFER 
*THAN THE NUMBER REQUESTED. THIS EXTRA BUFFER IS THE SYSTEM BUFFER 
*AND IS LOCATED AT THE END OF THE NORMAL FCBS. ONLY SYSTEM ROUTINES 
*(COPY, BACKUP, MERGE ETC.) MAY ACCESS THIS BUFFER. 
YTE BOUNDARY? 



ERROR IF PAST $FFFF 



ACCD CONTAINS LENGTH 



AT AN EXACT 256 

YES 

NO - ADD 256 

'OUT OF MEMORY 

ON A 512 BYTE BOUNDARY? 

YES 

NO - ADD 256 

'OM' ERROR IF PAST $FFFF 

SAVE MS BYTE OF NEW GRAPHIC RAM START 

GET START OF VARIABLES 

♦SUBTRACT THE OLD GRAPHIC RAM START 

*OF PROGRAM PLUS RESERVED GRAPHIC RAM 

ADD IN THE AMOUNT OF RAM CALCULATED ABOVE 

'OUT OF MEMORY' ERROR IF > $FFFF 

SAVE NEW VARTAB IN X 

*ADD 256 - TO GUARANTEE ENOUGH ROOM SINCE ALL CALCULATIONS USE 

*ONLY THE MSB OF THE ADDRESS 

'OUT OF MEMORY' ERROR IF PAST $FFFF 

IS IT GREATER THAN THE START OF STRING SPACE 

'OUT OF MEMORY' IF > START OF STRING SPACE 

SUBTRACT 256 - COMPENSATE FOR INCA ABOVE 

SUBTRACT START OF VARIABLES 

ADD START OF BASIC 

Y HAS NEW START OF BASIC 

* GET THE GRAPHIC RAM START, SUBTRACT 

* THE OLD GRAPHIC RAN START AND SAVE 

* THE DIFFERENCE IN ACCA AND ACCB 

= ADD THE OLD GRAPHIC PAGE START AND 
= STORE THE NEW START OF GRAPHICS RAM 

* ADD THE OLD GRAPHIC RAM END ADDRESS AND 

* STORE THE NEW END OF GRAPHICS RAM 

= ACCA=MSB OF START OF GRAPHIC RAM; ACCB=NUMBER OF FILE BUFFERS 

= U=START OF FILE BUFFERS 

SAVE NEW START OF GRAPHIC RAM 

NUMBER OF FILE BUFFERS 

START OF FILE BUFFERS 

GET CURRENT LINE NUMBER 

ARE WE IN DIRECT MODE? 

YES - MOVE BASIC PROGRAM 

MOVE NEW START OF BASIC TO ACCD 

SUBTRACT OLD START OF BASIC 

ADD OLD INPUT POINTER 

SAVE NEW INPUT POINTER 

POINT U TO OLD START OF VARIABLES 

SAVE NEW START OF VARIBLES 

* COMPARE OLD START OF VARIABLES TO NEW START OF 

* VARIABLES & BRANCH IF OLD > NEW 
OLD START ADDRESS <= NEW START ADDRESS 

GET A BYTE 
MOVE IT 

AT START OF BASIC PROGRAM? 
NO 

STORE NEW START OF BASIC PROGRAM 
RESET START OF PROGRAM FLAG 
CLOSE ALL FILES 
'OUT OF MEMORY' ERROR 
OLD START ADDRESS > NEW START ADDRESS 

POINT U TO OLD START OF BASIC 

SAVE NEW START OF BASIC 

RESET START OF BASIC FLAG 

GET A BYTE 

MOVE IT 

AT START OF VARIABLES 

NO - MOVE ANOTHER BYTE 



POINT U TO FILE BUFFER POINTERS 

POINT X TO START OF BUFFERS 

RESET FILE COUNTER 

STORE FILE ADDRESS IN VECTOR TABLE 

RESET FILE TYPE TO CLOSED 

GO TO NEXT FCB 

INCREMENT FILE COUNTER 

CLOSE ALL ACTIVE BUFFERS AND SYSTEM FCB 

BRANCH IF NOT DONE 

READJUST LINE NUMBERS, ETC. 



GET DRIVE NUMBER 

CLEAR FILE COUNTER 

INCREMENT FILE COUNTER 

POINT X TO FCB 

BRANCH IF FILE NOT OPEN 

CHECK DRIVE NUMBER 

DOES IT MATCH THE 'UNLOAD' DRIVE NUMBER? 

NO MATCH - DO NOT CLOSE THE FILE 

SAVE FILE COUNTER ON THE STACK 

CLOSE FCB 

RESTORE FILE COUNTER 
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2497 


D249 


Fl 


09 


5B 


LD249 


CMPB 


FCBACT 


2498 


D24C 


23 


E8 






BLS 


LD236 


2499 


D24E 


39 








RTS 




2500 










* GET 


DRIVE NUMBER FROM BASIC - 


2501 


D24F 


F6 


09 


5A 


LD24F 


LDB 


DEFDRV 


2502 


D252 


9D 


A5 






JSR 


GETCCH 


2503 


D254 


27 


09 






BEQ 


LD25F 


2504 


D256 


BD 


B7 


0B 


LD256 


JSR 


EVALEXPB 


2505 


D259 


CI 


03 






CMPB 


#$03 


2506 


D25B 


10 


22 


D3 C0 




LBHI 


LA61F 


2507 


D25F 


D7 


EB 




LD25F 


STB 


DCDRV 


2508 


D261 


39 








RTS 




2509 
















2510 










* BACKUP COMMAND 


2511 


D262 


10 


27 


D3 B9 


BACKUP 


LBEO 


LA61F 


2512 


D266 


BD 


95 


AC 




JSR 


L95AC 


2513 


> D269 


BD 


D2 


56 




JSR 


LD256 


2514 


D26C 


F7 


06 


FF 




STB 


DBUF0+255 


2515 


D26F 


9D 


A5 






JSR 


GETCCH 


2516 


D271 


27 


08 






BEQ 


LD27B 


2517 


D273 


C6 


A5 






LDB 


#$A5 


2518 


D275 


BD 


B2 


6F 




JSR 


LB26F 


2519 


> D278 


BD 


D2 


56 




JSR 


LD256 


2520 


D27B 


10 


CE 


06 FF 


LD27B 


LDS 


#DBUF0+255 


2521 


D27F 


34 


04 






PSHS 


B 


2522 


D281 


BD 


A5 


C7 




JSR 


LA5C7 


2523 


D284 


BD 


CA 


E9 




JSR 


DVEC7 


2524 


D287 


6F 


E2 






CLR 


,-s 


2525 


D289 


8E 


09 


88 




LDX 


#DFLBUF-1 


2526 


D28C 


6C 


E4 




LD28C 


INC 


,s 


2527 


D28E 


30 


89 


12 00 




LEAX 


SECMAX*SECLEN,X 


2528 


D292 


9C 


27 






CMPX 


MEMSIZ 


2529 


D294 


23 


F6 






BLS 


LD28C 


2530 


D296 


6A 


E4 






DEC 


,s 


2531 


D298 


10 


27 


D9 A8 




LBEQ 


LAC44 


2532 


D29C 


86 


23 






LDA 


#TRKMAX 


2533 


D29E 


5F 








CLRB 




2534 


D29F 


34 


06 






PSHS 


B,A 


2535 
















2536 










* AT THIS POINT THE STACK HAS THi 


2537 










* ,S = 


TRACKS 


REMAINING COUNTER; 


2538 










* 2,S 


= NUMBER OF TRACKS WHICH F 


2539 










* 4,5 


= SOURCE DRIVE NUMBER 


2540 


D2A1 


73 


09 


5C 




COM 


DRESFL 


2541 


D2A4 


5F 






LD2A4 


CLRB 




2542 


D2A5 


5C 






LD2A5 


INCB 




2543 


D2A6 


6A 


E4 






DEC 


,S 


2544 


D2A8 


27 


04 






BEQ 


LD2AE 


2545 


D2AA 


El 


62 






CMPB 


$02, S 


2546 


D2AC 


26 


F7 






BNE 


LD2A5 


2547 


D2AE 


D7 


03 




LD2AE 


STB 


TMPLOC 


2548 


D2B0 


E6 


64 






LDB 


$04, S 


2549 


D2B2 


8D 


48 






BSR 


LD2FC 


2550 


D2B4 


86 


FF 






LDA 


#$FF 


2551 


> D2B6 


BD 


D3 


22 




JSR 


LD322 


2552 


D2B9 


E6 


63 






LDB 


$03, S 


2553 


D2BB 


8D 


42 






BSR 


LD2FF 


2554 


D2BD 


6D 


E4 






TST 


,S 


2555 


D2BF 


27 


0C 






BEQ 


LD2CD 


2556 


D2C1 


4F 








CLRA 




2557 


> D2C2 


BD 


D3 


22 




JSR 


LD322 


2558 


D2C5 


E6 


61 






LDB 


$01, S 


2559 


D2C7 


DB 


03 






ADDB 


TMPLOC 


2560 


D2C9 


E7 


61 






STB 


$01, S 


2561 


D2CB 


20 


D7 






BRA 


LD2A4 


2562 
















2563 


D2CD 


8D 


03 




LD2CD 


BSR 


LD2D2 


2564 


D2CF 


7E 


AC 


73 




JMP 


LAC73 


2565 
















2566 


D2D2 


35 


40 




LD2D2 


PULS 


U 


2567 


D2D4 


B6 


09 


5C 




LDA 


DRESFL 


2568 


D2D7 


27 


16 






BEQ 


LD2EF 


2569 


D2D9 


8E 


09 


28 




LDX 


#FCBV1 


2570 


D2DC 


4F 








CLRA 




2571 


D2DD 


6F 


91 




LD2DD 


CLR 


[,X++] 


2572 


D2DF 


4C 








INCA 




2573 


D2E0 


Bl 


09 


5B 




CMPA 


FCBACT 


2574 


D2E3 


23 


F8 






BLS 


LD2DD 


2575 


D2E5 


9E 


19 






LDX 


TXTTAB 


2576 


D2E7 


6F 


IF 






CLR 


-1,X 


2577 


D2E9 


BD 


AD 


19 




JSR 


LAD19 


2578 


D2EC 


7F 


09 


5C 




CLR 


DRESFL 


2579 


D2EF 


B6 


09 


5D 


LD2EF 


LDA 


DLODFL 


2580 


D2F2 


27 


06 






BEQ 


LD2FA 


2581 


D2F4 


7F 


09 


5D 




CLR 


DLODFL 


2582 


D2F7 


BD 


AD 


19 




JSR 


LAD19 


2583 


D2FA 


6E 


C4 




LD2FA 


JMP 


,u 


2584 
















2585 


D2FC 


86 


02 




LD2FC 


LDA 


#$02 


2586 


D2FE 


8C 








CMPX 


#$8603 


2587 


D2FF 


86 


03 




LD2FF 


LDA 


#$03 


2588 


D301 


DD 


EA 






STD 


DCOPC 


2589 


D303 


A6 


63 






LDA 


$03, S 


2590 


D305 


97 


EC 






STA 


DCTRK 


2591 


D307 


8E 


09 


89 




LDX 


#DFLBUF 


2592 


D30A 


9F 


EE 






STX 


DCBPT 



CHECKED ALL FILES? 
NO 

USE THE DEFAULT DRIVE IF NONE GIVEN 

GET DEFAULT DRIVE NUMBER 

GET NEXT INPUT CHAR 

USE DEFAULT DRIVE NUMBER IF NONE GIVEN 

EVALUATE EXPRESSION 

4 DRIVES MAX 

'DEVICE NUMBER ERROR' IF > 3 

STORE IN DSKCON VARIABLE 



DEVICE NUMBER ERROR IF NO DRIVE NUMBERS GIVEN 
RESET SAM DISPLAY PAGE AND VOG MODE 

* GET SOURCE DRIVE NUMBER AND SAVE 

* IT AT TOP OF DBUF0 (TOP OF NEW STACK) 
GET A CHARACTER FROM BASIC 
BRANCH IF END OF LINE 
TOKEN FOR 'TO' 
SYNTAX CHECK FOR 'TO' 
GET DESTINATION DRIVE NUMBER 
PUT STACK AT TOP OF DBUF0 
SAVE DESTINATION DRIVE NUMBER ON STACK 
SYNTAX ERROR IF NOT END OF LINE 
CLOSE ALL FILES 

CLEAR A TRACK COUNTER ON STACK 
POINT X TO TOP OF DISK RAM VARIABLES 
INCREMENT TRACK COUNTER 
INCREMENT X BY ONE TRACK 
COMPARE TO TOP OF NON RESERVED RAN 
KEEP GOING IF MORE FREE RAM LEFT 
DECREMENT TRACK COUNTER 
'OM' ERROR IF < 1 TRACK OF FREE RAM 

GET MAXIMUM NUMBER OF TRACKS INITIALIZE REMAINING TRACKS CTR 
INITIALIZE TRACKS WRITTEN COUNTER TO ZERO 
SAVE TRACKS WRITTEN AND REMAINING COUNTERS ON STACK 

E FOLLOWING DATA ON IT: 

1,S = TRACKS WRITTEN COUNTER 
IT IN RAM; 3,S = DESTINATION DRIVE NUMBER 

SET THE DISK RESET FLAG TO CAUSE A RESET 
INITIALIZE WRITE TRACK COUNTER TO ZERO 
ADD ONE TO WRITE TRACK COUNTER 

* DECREMENT REMAINING TRACKS COUNTER 

* AND BRANCH IF NO TRACKS LEFT 

= COMPARE WRITE TRACK COUNTER TO NUMBER OF TRACKS THAT 
= WILL FIT IN RAM AND BRANCH IF ROOM FOR MORE TRACKS IN RAM 
SAVE THE NUMBER OF TRACKS TO BE TRANSFERRED 
GET SOURCE DRIVE NUMBER 

FILL RAM BUFFER WITH TMPLOC TRACKS OF DATA 
SET SOURCE/DESTINATION FLAG TO DESTINATION 
PRINT PROMPT MESSAGE IF NEEDED 
GET DESTINATION DRIVE NUMBER 
WRITE TMPLOC TRACKS FROM BUFFER 
TEST TRACKS REMAINING FLAG 
BRANCH IF BACKUP DONE 
SET SOURCE7DESTINATION FLAG TO SOURCE 
PRINT PROMPT MESSAGE IF NEEDED 

* GET THE TRACKS WRITTEN COUNTER, ADD THE NUMBER OF 

* TRACKS MOVED THIS TIME THROUGH LOOP AND 

* SAVE THE NEW TRACKS WRITTEN COUNTER 
COPY SOME MORE TRACKS 

CHECK FOR DOS INITIALIZATION 
JUMP BACK TO BASIC S MAIN LOOP 

PUT THE RETURN ADDRESS IN U 

TEST DISK RESET FLAG 

DON T RESET THE DOS IF FLAG NOT SET 

POINT X TO TABLE OF FCB ADDRESSES 

SET FILE COUNTER TO ZERO 

MARK FCB AS CLOSED 

ADD ONE TO FILE COUNTER 

COMPARE TO NUMBER OF RESERVED FILES 

BRANCH IF ANY FILES NOT SHUT DOWN 

LOAD X WITH THE START OF BASIC 

SET FIRST BYTE OF BASIC PROGRAM TO ZERO 

GO DO A 'NEW' 

RESET THE DOS RESET FLAG 

* CHECK THE LOAD RESET FLAG AND 

* BRANCH IF NOT SET 
CLEAR THE LOAD RESET FLAG 
GO DO A 'NEW' 
JUMP BACK TO RETURN ADDRESS SAVED IN U ABOVE 

READ OP CODE 

SKIP TWO BYTES 

WRITE OP CODE 

SAVE IN DSKCON VARIABLE 

* GET THE NUMBER OF THE TRACK BEING CURRENTLY 

* WRITTEN AND SAVE IT IN DSKCON VARIABLE 
= TRACK BUFFER STARTS AT DFLBUF 
= SAVE IT IN DSKCON VARIABLE 
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2593 D30C 96 03 LDA TMPLOC GET NUMBER OF TRACKS TO MOVE 

2594 D30E C6 01 LD30E LDB #$01 INITIALIZE SECTOR COUNTER TO ONE 

2595 D310 D7 ED LD310 STB DSEC SAVE DSKCON SECTOR VARIABLE 

2596 D312 BD D6 F2 JSR LD6F2 READ/WRITE A SECTOR 

2597 D315 0C EE INC DCBPT MOVE BUFFER POINTER UP ONE SECTOR (256 BYTES) 

2598 D317 5C INCB INCREMENT SECTOR COUNTER 

2599 D318 CI 12 CMPB #SECMAX COMPARE TO MAXIMUM NUMBER OF SECTORS PER TRACK 

2600 D31A 23 F4 BLS LD310 BRANCH IF ANY SECTORS LEFT 

2601 D31C 0C EC INC DCTRK INCREMENT TRACK COUNTER VARIABLE TO NEXT TRACK 

2602 D31E 4A DECA DECREMENT TRACKS TO MOVE COUNTER 

2603 D31F 26 ED BNE LD30E READ MORE TRACKS IF ANY LEFT 

2604 D321 39 RTS 
2605 

2606 D322 E6 65 LD322 LDB $05, S * GET THE DESTINATION DRIVE NUMBER AND 

2607 D324 El 66 CMPB $06, S * COMPARE IT TO THE SOURCE DRIVE NUMBER 
2608 

2609 * PRINT SOURCE/DESTINATION DISK SWITCH PROMPT MESSAGE 

2610 D326 26 36 LD326 BNE LD35E RETURN IF DRIVE NUMBERS NOT EQUAL 

2611 D328 7F 09 85 CLR RDYTMR RESET THE READY TIMER 

2612 D32B 7F FF 40 CLR DSKREG CLEAR DSKREG - TURN OFF ALL DISK MOTORS 

2613 D32E 7F 09 86 CLR DRGRAM CLEAR DSKREG RAM IMAGE 

2614 D331 34 02 PSHS A SAVE SOURCE/DESTINATION FLAG ON STACK 

2615 D333 BD A9 28 JSR LA928 CLEAR SCREEN 

2616 D336 8E D3 5F LDX #LD35F POINT X TO 'INSERT SOURCE' MESSAGE 

2617 D339 C6 0D LDB #13 13 BYTES IN MESSAGE 

2618 D33B A6 E0 LDA ,S+ GET SOURCE/DESTINATION FLAG FROM THE STACK 

2619 D33D 27 05 BEQ LD344 BRANCH IF SOURCE 

2620 D33F 8E D3 6C LDX #LD36C POINT X TO 'INSERT DESTINATION' MESSAGE 

2621 D342 C6 12 LDB #18 18 BYTES IN MESSAGE 

2622 D344 BD B9 A2 LD344 JSR LB9A2 SEND MESSAGE TO CONSOLE OUT 

2623 D347 8E D3 7E LDX #LD37E POINT X TO 'DISKETTE AND' MESSAGE 

2624 D34A C6 IB LDB #27 27 BYTES IN MESSAGE 

2625 D34C BD B9 A2 JSR LB9A2 SEND MESSAGE TO CONSOLE OUT 

2626 D34F CC 64 05 LDD #$6405 * SET UP 'SOUND' PARAMETERS 

2627 D352 97 8C STA SNDTON * FOR A BEEP 

2628 D354 BD A9 51 JSR LA951 JUMP TO 'SOUND' - DO A BEEP 

2629 D357 BD Al 71 LD357 JSR LA171 GET A CHARACTER FROM CONSOLE IN 

2630 D35A 81 0D CMPA #CR * KEEP LOOKING AT CONSOLE IN UNTIL 

2631 D35C 26 F9 BNE LD357 * YOU GET A CARRIAGE RETURN 

2632 D35E 39 LD45E RTS 
2633 

2634 D35F 49 4E 53 45 52 54 LD35F FCC 'INSERT SOURCE' 

2635 D365 20 53 4F 55 52 43 

2636 D36B 45 

2637 D36C 49 4E 53 45 52 54 LD36C FCC 'INSERT DESTINATION' 

2638 D372 20 44 45 53 54 49 

2639 D378 4E 41 54 49 4F 4E 

2640 D37E 20 44 49 53 4B 45 LD37E FCC ' DISKETTE AND' 

2641 D384 54 54 45 20 41 4E 

2642 D38A 44 

2643 D38B 0D FCB CR 

2644 D38C 50 52 45 53 53 20 FCC 'PRESS 'ENTER" 

2645 D392 27 45 4E 54 45 52 

2646 D398 27 
2647 

2648 * PUSH FILENAME. EXT AND DRIVE NUMBER ONTO THE STACK 

2649 D399 35 20 LD399 PULS Y SAVE RETURN ADDRESS IN Y 

2650 D39B C6 0B LDB #11 11 CHARACTERS IN FILENAME AND EXTENSION 

2651 D39D 8E 09 57 LDX #DNAMBF+11 POINT X TO TOP OF DISK NAME/EXT BUFFER 

2652 D3A0 A6 82 LD3A0 LDA ,-X * GET A CHARACTER FROM FILENAME. 

2653 D3A2 34 02 PSHS A * EXT BUFFER AND PUSH IT ONTO THE 

2654 D3A4 5A DECB * STACK - DECREMENT COUNTER AND 

2655 D3A5 26 F9 BNE LD3A0 * KEEP LOOPING UNTIL DONE 

2656 D3A7 96 EB LDA DCDRV = GET DRIVE NUMBER AND PUSH 

2657 D3A9 34 02 PSHS A = IT ONTO THE STACK 

2658 D3AB 6E A4 JMP ,Y PSEUDO - RETURN TO CALLING ROUTINE 
2659 

2660 * PULL FILENAME. EXT AND DRIVE NUMBER FROM (X) TO RAM 

2661 D3AD A6 80 LD3AD LDA ,X+ * GET DRIVE NUMBER AND SAVE 

2662 D3AF 97 EB STA DCDRV * IT IN DSKCON VARIABLE 

2663 D3B1 C6 0B LDB #11 11 BYTES IN FILENAME AND EXTENSION 

2664 D3B3 CE 09 4C LDU #DNAMBF POINT U TO DISK NAME BUFFER 

2665 D3B6 7E A5 9A JMP LA59A MOVE FILENANE.EXT FROM (X) TO DNAMBF 
2666 

2667 * COPY 

2668 * THE COPY PROCESS IS PERFORMED BY COPYING DATA FROM THE SOURCE FILE 

2669 * TO RAM AND THEN COPYING IT TO THE DESTINATION FILE. THE SOURCE AND 

2670 * DESTINATION FILES ARE OPENED AS RANDOM FILES AND BOTH USE THE SYSTEM 

2671 * FCB ABOVE THE RESERVED FCBS. ALL OF AVAILABLE FREE RAM ABOVE THE 

2672 * VARIABLES IS USED AS A COPY BUFFER WHICH SPEEDS UP THE COPYING PROCESS 

2673 * BUT UNFORTUNATELY THE METHOD USED WILL ALLOW AN ERROR ENCOUNTERED DURING 

2674 * THE COPY PROCESS TO 'HANG' THE SYSTEM. THIS IS CAUSED BY POINTING THE FCB'S 

2675 * RANDOM FILE BUFFER POINTER (FCBBUF.X) TO THE FREE RAM BUFFER. AN ERROR 

2676 * WILL THEN CAUSE THE OPEN FILE TO BE CLOSED WITH FCBBUF.X POINTING TO AN 

2677 * AREA IN RAM WHERE THE RANDOM FILE BUFFER CLOSE ROUTINE (LCAE2) WILL NEVER 

2678 * LOOK FOR IT 

2679 D3B9 BD C9 35 COPY JSR LC935 * GET SOURCE FILENAME. EXT S DRIVE NUMBER FROM BASIC 

2680 D3BC 8D DB BSR LD399 * AND SAVE THEM ON THE STACK 

2681 D3BE 6F E2 CLR ,-S CLEAR A BYTE ON STACK - SINGLE DISK COPY (SDC) FLAG 

2682 D3C0 9D A5 JSR GETCCH GET CURRENT INPUT CHARACTER 

2683 D3C2 27 0A BEQ LD3CE BRANCH IF END OF LINE - SINGLE DISK COPY 

2684 D3C4 63 E4 COM ,S SET SOC FLAG TO $FF (NO SINGLE DISK COPY) 

2685 D3C6 C6 A5 LDB #$A5 TOKEN FOR 'TO' 

2686 D3C8 BD B2 6F JSR LB26F SYNTAX CHECK FOR 'TO' 

2687 D3CB BD C9 35 JSR LC935 GET DESTINATION FILENAME. EXT AND DRIVE NUMBER 

2688 D3CE 8D C9 LD3CE BSR LD399 SAVE DESTINATION FILENAME. EXT S DRIVE NUMBER ON STACK 
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2689 


D3D0 


BD 


A5 


C7 


2690 


D3D3 


BD 


CA 


E9 


2691 










2692 










2693 


D3D6 


6F 


E2 




2694 


D3D8 


30 


E9 


FF 00 


2695 


D3DC 


6C 


E4 




2696 


D3DE 


30 


89 


FF 00 


2697 


D3E2 


9C 


IF 




2698 


D3E4 


24 


F6 




2699 


D3E6 


6A 


E4 




2700 


D3E8 


10 


27 


D8 58 


2701 


D3EC 


30 


6E 




2702 


D3EE 


8D 


BD 




2703 


D3F0 


BD 


C6 


8C 


2704 


D3F3 


BD 


C6 


E5 


2705 


D3F6 


BE 


09 


74 


2706 


D3F9 


EE 


0E 




2707 


D3FB 


AE 


0B 




2708 


D3FD 


34 


50 




2709 


D3FF 


BD 


C7 


9D 


2710 


D402 


F6 


09 


76 


2711 


D405 


BD 


CD 


IE 


2712 


D408 


34 


02 




2713 


D40A 


4A 






2714 


D40B 


C4 


3F 




2715 


D40D 


34 


04 




2716 


D40F 


IF 


89 




2717 


D411 


4F 






2718 


D412 


BD 


C7 


79 


2719 


D415 


EB 


E4 




2720 


D417 


89 


00 




2721 


D419 


8E 


00 


01 


2722 


D41C 


34 


16 




2723 










2724 










2725 










2726 










2727 










2728 










2729 










2730 










2731 










2732 










2733 


D41E 


5F 






2734 


D41F 


AE 


E4 




2735 


D421 


27 


09 




2736 


D423 


5C 






2737 


D424 


30 


IF 




2738 


D426 


27 


04 




2739 


D428 


El 


6A 




2740 










2741 


D42A 


26 


F7 




2742 


D42C 


AF 


E4 




2743 


D42E 


E7 


64 




2744 


D430 


8D 


50 




2745 


D432 


86 


FF 




2746 


D434 


8D 


40 




2747 


D436 


6D 


65 




2748 


D438 


27 


25 




2749 










2750 










2751 


D43A 


30 


6B 




2752 


D43C 


BD 


D3 


AD 


2753 


D43F 


BD 


D0 


59 


2754 


D442 


BD 


C7 


9D 


2755 










2756 










2757 


D445 


BD 


C7 


55 


2758 


D448 


30 


06 




2759 


D44A 


A6 


65 




2760 


D44C 


C6 


44 




2761 


D44E 


63 


84 




2762 


D450 


26 


03 




2763 


D452 


4A 






2764 


D453 


27 


08 




2765 


D455 


63 


80 




2766 


D457 


5A 






2767 


D458 


26 


F4 




2768 


D45A 


7E 


C7 


F8 


2769 


D45D 


63 


84 




2770 


D45F 


8D 


IB 




2771 


D461 


AE 


E4 




2772 


D463 


27 


0D 




2773 


D465 


EC 


62 




2774 


D467 


EB 


64 




2775 


D469 


89 


00 




2776 


D46B 


ED 


62 




2777 


D46D 


4F 






2778 


D46E 


8D 


06 




2779 


D470 


20 


AC 




2780 










2781 


D472 


32 


E8 


24 


2782 


D475 


39 






2783 










2784 


D476 


6D 


E8 


19 



JSR 


DVEC7 


FHE NUMBER OF SE 


CLR 


,-s 


LEAX 


-SECLEN.S 


INC 


,s 


LEAX 


-SECLEN.X 


CMPX 


ARYEND 


BHS 


LD3DC 


DEC 


,s 


LBEQ 


LAC44 


LEAX 


14, S 


BSR 


LD3AD 


JSR 


LC68C 


JSR 


LC6E5 


LDX 


V974 


LDU 


DIRLST.X 


LDX 


DIRTYP.X 


PSHS 


U,X 


JSR 


LC79D 


LDB 


V976 


JSR 


LCD1E 


PSHS 


A 


DECA 




ANDB 


#$3F 


PSHS 


B 


TFR 


A,B 


CLRA 




JSR 


LC779 


ADDB 


,s 


ADCA 


#$00 


LDX 


#$0001 


PSHS 


X,B,A 



SYNTAX ERROR IF MORE CHARACTERS ON LINE 
CLOSE ALL FILES 



CLEAR A SECTOR COUNTER ON THE STACK 

POINT X ONE SECTOR LENGTH DOWN FROM THE TOP OF STACK 

INCREMENT SECTOR COUNTER 

DECREMENT X BY ONE SECTOR 

COMPARE TO TOP OF ARRAYS 

BRANCH IF NOT AT BOTTOM OF FREE RAM 

DECREMENT SECTOR COUNTER 

'OM' ERROR IF NOT AT LEAST ONE FULL SECTOR OF FREE RAM 

POINT X TO START OF SOURCE DATA 

PUT SOURCE DATA INTO DNAMBF AND DSKCON 

SCAN DIRECTORY FOR A MATCH 

'NE' ERROR IF MATCH NOT FOUND 

POINT X TO DIRECTORY RAM IMAGE OF FOUND FILE 

* GET NUMBER OF BYTES IN LAST SECTOR AND 

* SOURCE FILE TYPE AND ASCII FLAG 

* AND SAVE THEM ON THE STACK 
GET VALID FAT DATA 

GET NUMBER OF FIRST GRANULE IN FILE 

* GET THE NUMBER OF GRANULES IN FILE 

* AND SAVE IT ON THE STACK 
SUBTRACT OFF THE LAST GRANULE 

* MASK OFF LAST GRANULE FLAG BITS AND SAVE THE 

* NUMBER OF SECTORS IN LAST GRANULE ON STACK 
SAVE THE NUMBER OF GRANULES IN ACCB 

CLEAR THE MS BYTE OF ACCD 
MULTIPLY ACCD BY NINE 

* ADD THE NUMBER OF SECTORS IN THE LAST 

* GRANULE TO ACCD 

INITIALIZE RECORD COUNTER TO ONE 

INITIALIZE SECTOR AND RECORD COUNTERS ON THE STACK 



AT THIS POINT THE CONTROL VARIABLES FOR COPY ARE STORED ON THE STACK. 

1,S = REMAINING SECTORS COUNTER; 2 3,S ■ RECORD COUNTER 

4,S = NUMBER OF SECTORS TO BE COPIED. INITIALLY SET TO NUMBER OF 

SECTORS IN THE LAST GRANULE. 

5,S = GRAN TEST FLAG. INITIALLY SET TO NUMBER OF GRANS IN FILE 

6,S = FILE TYPE; 7,S = ASCII FLAG; 8 9,S = NUMBER OF BYTES IN LAST SECTOR 

10, S = NUMBER OF SECTORS WHICH WILL FIT IN THE CURRENTLY AVAILABLE FREE RAM 

11-22, S = DESTINATION FILENAME. EXT AND DRIVE NUMBER 

23, S = SINGLE DISK COPY FLAG; 24-35, S = SOURCE FILENAME. EXT AND DRIVE NUMBER 



LD41E 


CLRB 






LDX 


,s 




BEQ 


LD42C 


LD423 


INCB 






LEAX 


-1,X 




BEQ 


LD42C 




CMPB 


10, S 




BNE 


LD423 


LD42C 


STX 


,s 




STB 


$04, S 




BSR 


LD482 




LDA 


#$FF 




BSR 


LD476 




TST 


$05, S 


, 


BEQ 


LD45F 


* 


LEAX 


11, S 




JSR 


LD3AD 




JSR 


LD059 




JSR 


LC79D 


* MAKE 


SURE THERE ARE [ 




JSR 


LC755 




LEAX 


FATCON.X 




LDA 


$05, S 




LDB 


#GRANMX 


LD44E 


COM 


,x 




BNE 


LD455 




DECA 






BEQ 


LD45D 


LD455 


COM 
DECB 


,x+ 




BNE 


LD44E 




JMP 


LC7F8 


LD45D 


COM 


,x 


LD45F 


BSR 


LD47C 




LDX 


,s 




BEQ 


LD472 




LDD 


$02, S 




ADDB 


$04, S 




ADCA 


#$00 




STD 


$02, S 




CLRA 






BSR 


LD476 




BRA 


LD41E 


LD472 


LEAS 
RTS 


36, S 


LD476 


TST 


25, S 



SET SECTOR COUNTER TO ZERO 

GET THE NUMBER OF SECTORS REMAINING IN THE FILE 

BRANCH IF NO SECTORS LEFT 

ADD A SECTOR TO TEMPORARY SECTOR COUNTER 

DECREMENT REMAINING SECTORS COUNTER 

BRANCH IF NO SECTORS LEFT 

♦COMPARE TEMPORARY COUNTER TO NUMBER OF SECTORS WHICH MAY 

*BE STORED IN FREE RAM 

BRANCH IF STILL ROOM FOR MORE SECTORS 

SAVE THE NUMBER OF UNCOPIED SECTORS REMAINING IN THE FILE 

SAVE THE NUMBER OF SECTORS TO BE COPIED THIS TIME THROUGH LOOP 

'GET' ACCB SECTORS TO RAM BUFFER 

SET SOURCE7DESTINATION FLAG TO DESTINATION 

PRINT PROMPT MESSAGE IF REQUIRED 

* CHECK THE GRAN TEST FLAG. IF <> 0, IT CONTAINS THE 

* NUMBER OF GRANS IN THE FILE AND THE DESTINATION DISK 

* MUST BE CHECKED FOR ENOUGH ROOM. IF IT IS =0 

* THEN THE CHECK HAS ALREADY BEEN DONE 
POINT TO DESTINATION FILE PARAMETERS 

GET DESTINATION FILE PARAMETERS FROM STACK 

SCAN DIRECTORY FOR FILE - 'AE' ERROR IF IT EXISTS 

GET VALID FAT DATA 



POINT X TO FAT 

SKIP PAST THE FAT CONTROL BYTES 
GET THE NUMBER OF GRANS IN THE FILE 
SET GRAN COUNTER TO MAXIMUM 

* CHECK TO SEE IF A BRAN IS FREE 

* AND BRANCH IF IT IS NOT FREE 

= DECREMENT COUNTER AND BRANCH IF 

= THERE ARE ENOUGH FREE GRANULES 

RESTORE FAT BYTE AND INCREMENT POINTER 

DECREMENT GRAN COUNTER 

BRANCH IF ALL GRANS NOT CHECKED 

'DISK FULL' ERROR 

RESTORE FAT BYTE 

'PUT' DATA FROM RAM BUFFER TO DESTINATION FILE 

GET THE NUMBER OF REMAINING SECTORS 

EXIT ROUTINE IF NO SECTORS LEFT 

* GET THE CURRENT RECORD COUNTER, ADD 

* THE NUMBER OF SECTORS (RECORDS) MOVED 

* AND SAVE THE NEW RECORD COUNTER 
SET SOURCE7DESTINATION FLAG TO SOURCE 
PRINT PROMPT MESSAGE IF REQUIRED 
KEEP COPYING SECTORS 

REMOVE TEMPORARY STORAGE VARIABLES FROM STACK 
**** COPY DONE **** 

♦CHECK SINGLE DISK COPY FLAG - IF <> ZERO, THEN DON'T 
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2785 










* 






2786 


D479 


7E 


D3 


26 




JMP 


LD326 


2787 
















2788 










* 'PUT' 


. 'GET' 


DATA FROM 1 


2789 


D47C 


86 


FF 




LD47C 


LDA 


#$FF 


2790 


D47E 


30 


6D 






LEAX 


13, S 


2791 


D480 


20 


04 






BRA 


LD486 


2792 


D482 


4F 






LD482 


CLRA 




2793 


D483 


30 


E8 


1A 




LEAX 


26, S 


2794 


D486 


97 


D8 




LD486 


STA 


VD8 


2795 


D488 


BD 


D3 


AD 




JSR 


LD3AD 


2796 


D48B 


AE 


68 






LDX 


$08, S 


2797 


D48D 


BF 


09 


57 




STX 


DFLTVP 


2798 


D490 


8E 


01 


00 




LDX 


#SECLEN 


2799 


D493 


BF 


09 


7C 




STX 


DFFLEN 


2800 


D496 


86 


52 






LDA 


#'R' 


2801 


D498 


F6 


09 


5B 




LDB 


FCBACT 


2802 


D49B 


5C 








INCB 




2803 


D49C 


BD 


C4 


8D 




JSR 


LC48D 


2804 


D49F 


9E 


Fl 






LDX 


FCBTMP 


2805 


D4A1 


CC 


01 


00 




LDD 


#SECLEN 


2806 


D4A4 


ED 


88 


13 




STD 


FCBLST.X 


2807 


D4A7 


E6 


66 






LDB 


$06, S 


2808 


D4A9 


27 


29 






BEQ 


LD4D4 


2809 


D4AB 


D6 


D8 






LDB 


VD8 


2810 


D4AD 


E4 


67 






ANDB 


$07, S 


2811 


D4AF 


27 


09 






BEQ 


LD4BA 


2812 


D4B1 


EC 


62 






LDD 


$02, S 


2813 


D4B3 


EB 


66 






ADDB 


$06, S 


2814 


D4B5 


89 


00 






ADCA 


#$00 


2815 


D4B7 


BD 


C2 


E6 




JSR 


LC2E6 


2816 










* 






2817 


D4BA 


9E 


Fl 




LD4BA 


LDX 


FCBTMP 


2818 


D4BC 


EE 


64 






LDU 


$04, S 


2819 


D4BE 


EF 


07 






STU 


FCBREC.X 


2820 


D4C0 


E6 


66 






LDB 


$06, S 


2821 


D4C2 


DE 


IF 






LDU 


ARYEND 


2822 


D4C4 


34 


44 




LD4C4 


PSHS 


U,B 


2823 


D4C6 


9E 


Fl 






LDX 


FCBTMP 


2824 


D4C8 


EF 


0B 






STU 


FCBBUF.X 


2825 










* 






2826 


D4CA 


BD 


C2 


EA 




JSR 


LC2EA 


2827 


D4CD 


6C 


61 






INC 


$01, S 


2828 


D4CF 


35 


44 






PULS 


B,U 


2829 


D4D1 


5A 








DECB 




2830 


D4D2 


26 


F0 






BNE 


LD4C4 


2831 


D4D4 


9E 


Fl 




LD4D4 


LDX 


FCBTMP 


2832 


D4D6 


CE 


09 


89 




LDU 


#DFLBUF 


2833 


D4D9 


EF 


0B 






STU 


FCBBUF.X 


2834 


D4DB 


D6 


D8 






LDB 


VD8 


2835 


D4DD 


E4 


67 






ANDB 


$07, S 


2836 


D4DF 


27 


09 






BEQ 


LD4EA 


2837 


D4E1 


6F 


67 






CLR 


$07, S 


2838 


D4E3 


EC 


6A 






LDD 


10, S 


2839 


D4E5 


8A 


80 






ORA 


#$80 


2840 


D4E7 


ED 


88 


13 




STD 


FCBLST.X 


2841 


D4EA 


7E 


CB 


06 


LD4EA 


JMP 


LCB06 


2842 
















2843 










* DSKI$ 


COMMAND 


2844 


D4ED 


8D 


38 




DSKI 


BSR 


LD527 


2845 


D4EF 


8D 


2B 






BSR 


LD51C 


2846 


D4F1 


34 


10 






PSHS 


X 


2847 


D4F3 


8D 


27 






BSR 


LD51C 


2848 


D4F5 


34 


10 






PSHS 


X 


2849 


D4F7 


C6 


02 






LDB 


#$02 


2850 


D4F9 


BD 


D5 


8F 




JSR 


LD58F 


2851 


D4FC 


CE 


06 


80 




LDU 


#DBUF0+128 


2852 


D4FF 


35 


10 






PULS 


X 


2853 


D501 


8D 


05 






BSR 


LD508 


2854 


D503 


CE 


06 


00 




LDU 


#DBUF0 


2855 


D506 


35 


10 






PULS 


X 


2856 


D508 


34 


50 




LD508 


PSHS 


U,X 


2857 


D50A 


C6 


80 






LDB 


#128 


2858 


D50C 


BD 


B5 


0F 




JSR 


LB50F 


2859 


D50F 


33 


84 






LEAU 


,x 


2860 


D511 


35 


10 






PULS 


X 


2861 


D513 


E7 


84 






STB 


,x 


2862 


D515 


EF 


02 






STU 


$02, X 


2863 


D517 


35 


10 






PULS 


X 


2864 


D519 


7E 


A5 


9A 


LD519 


JMP 


LA59A 


2865 
















2866 


D51C 


BD 


B2 


6D 


LD51C 


JSR 


SYNCOMMA 


2867 


D51F 


8E 


B3 


57 




LDX 


#LB357 


2868 


D522 


8D 


2F 






BSR 


LD553 


2869 


D524 


7E 


Bl 


46 


LD524 


JMP 


LB146 


2870 
















2871 










* EVALUATE DRIVE, TRACK / 


2872 


D527 


BD 


B7 


0B 


LD527 


JSR 


EVALEXPB 


2873 


D52A 


CI 


03 






CMPB 


#$03 


2874 


D52C 


22 


1C 






BHI 


LD54A 


2875 


D52E 


34 


04 






PSHS 


B 


2876 


D530 


BD 


B7 


38 




JSR 


LB738 


2877 


D533 


CI 


22 






CMPB 


#TRKMAX-1 


2878 


D535 


22 


13 






BHI 


LD54A 


2879 


D537 


34 


04 






PSHS 


B 


2880 


D539 


BD 


B7 


38 




JSR 


LB738 



*PRINT THE PROMPT MESSAGE 

PRINT THE PROMPT MESSAGE IF REQUIRED 

ML DESTINATION/SOURCE FILES 

'PUT' FLAG 

POINT X TO DESTINATION FILENAME DATA 

GO 'PUT' SOME DATA 

ZERO IS THE 'GET' FLAG 

POINT X TO THE SOURCE FILENAME DATA 

SAVE THE 'GET'/'PUT' FLAG 

GET FILENAME AND DRIVE DATA FROM THE STACK 

* GET ASCII FLAG AND FILE TYPE AND SAVE 

* THEM IN THE DISK RAM VARIABLES 
= SAVE ONE SECTOR LENGTH IN 
= RAM RECORD LENGTH VARIABLE 
RANDOM FILE TYPE FLAG 

* GET THE HIGHEST RESERVED FCB NUMBER, ADD ONE 

* AND OPEN A RANDOM FILE WHOSE FCB WILL BE ONE ABOVE 

* THE HIGHEST RESERVED FCB (THE SYSTEM FCB) 
POINT X TO THE 'SYSTEM' FCB 

* SET THE NUMBER OF BYTES IN THE LAST SECTOR 

* OF THE FILE EQUAL TO ONE SECTOR LENGTH 
=GET THE NUMBER OF SECTORS TO MOVE AND 
=BRANCH IF NONE LEFT 

*GRAB THE 'GET'/'PUT' FLAG, 'AND' IT WITH THE 
*GRAN TEST FLAG - BRANCH IF 'GET'ING DATA OR THIS IS 
*NOT THE FIRST TIME THROUGH THE LOOP 

=GET THE NUMBER OF SECTORS REMAINING TO BE COPIED AND 
=ADD THE NUMBER TO BE COPIED THIS TIME THROUGH LOOP 

*'PUT' THE LAST RECORD IN THE FILE TO THE SYSTEM FCB. 
*THE RECORD NUMBER IS IN ACCD. 
POINT X TO THE SYSTEM FCB 

* GET THE CURRENT RECORD NUMBER 

* AND SAVE IT IN THE FCB 

GET THE NUMBER OF THE RECORD (SECTOR) TO MOVE 
END OF ARRAYS IS THE START OF THE COPY FREE RAM BUFFER 
SAVE SECTOR COUNTER AND BUFFER POINTER ON THE STACK 
POINT X TO SYSTEM FCB 

*SET THE RANDOM FILE BUFFER POINTER TO THE 'COPY' RAM BUFFER 
*THIS WILL CAUSE THE SYSTEM TO 'HANG' IF AN ERROR OCCURS DURING COPY. 
GO 'GET' OR 'PUT' DATA TO THE SYSTEM FCB 
ADD 256 (ONE SECTOR) TO THE BUFFER POINTER 
GET THE SECTOR COUNTER AND BUFFER POINER 
DECREMENT SECTOR COUNTER 
BRANCH IF ALL SECTORS NOT DONE 
POINT X TO SYSTEM FCB 

* RESET THE RANDOM FILE BUFFER POINTER FOR THE SYSTEM 

* FCB TO THE BOTTOM OF RANDOM FILE BUFFER AREA 
=GRAB THE 'GET'/'PUT' FLAG, 'AND' IT WITH THE GRAN 
=TEST FLAG - CLOSE THE FILE IF 'GET'ING DATA AND 
=THIS IS NOT THE FIRST TIME THROUGH THE LOOP 
RESET THE GRAN TEST FLAG IF FIRST TIME THROUGH LOOP 
*GET THE NUMBER OF BYTES IN THE LAST SECTOR, 
*'OR' IN THE PRE-SAVED FLAG AND 

*SAVE THE NUMBER OF BYTES IN THE LAST SECTOR IN THE FCB 
CLOSE THE FILE 



GET THE DRIVE, TRACK AND SECTOR NUMBERS 

* EVALUATE STRING VARIABLE 1 AND SAVE 

* THE DESCRIPTOR ADDRESS ON THE STACK 
= EVALUATE STRING VARIABLE 2 AND SAVE 
= THE DESCRIPTOR ADDRESS ON THE STACK 
DSKCON READ OP CODE 

REAO A SECTOR INTO DBUF0 

POINT U TO TOP HALF OF DBUF0 

GET STRING 2 DESCRIPTOR ADDRESS 

PUT STRING 2 INTO STRING SPACE 

POINT U TO BOTTOM HALF OF DBUF0 

GET STRING 1 DESCRIPTOR ADDRESS 

PUT STRING DESCRIPTOR S SOURCE POINTER ON THE STACK 

* RESERVE 128 BYTES IN STRING SPACE 
POINT U TO RESERVED STRING SPACE 
GET STRING DESCRIPTOR ADDRESS 

* SAVE DESCRIPTOR DATA (LENGTH AND ADDRESS) 

* OF THE NEW STRING 

GET THE SOURCE (DBUF0) POINTER 

MOVE SECTOR DATA FROM DBUF0 TO STRING SPACE 

SYNTAX CHECK FOR A COMMA 

POINT X TO EVALUATE VARIABLE ROUTINE 

EVALUATE A VARIABLE 

'TM' ERROR IF NUMERIC VARIABLE 



EVALUATE EXPRESSION, RETURN VALUE IN ACCB 

* COMPARE TO 3 (HIGHEST DRIVE NUMBER) - 

* 'FC ERROR IF IT S > 3 

SAVE DRIVE NUMBER ON THE STACK 

SYNTAX CHECK FOR COMMA. EVALUATE EXPRESSION (TRACK NUMBER) 

* CHECK FOR MAXIMUM TRACK NUMBER 

* 'FC ERROR IF TRACK NUMBER > 34 
SAVE TRACK NUMBER ON THE STACK 

SYNTAX CHECK FOR COMMA, EVALUATE EXPRESSION (SECTOR NUMBER) 



DISK BASIC UNRAVELLED II 



APPENDIX B 
DISASSEMBLY OF DISK BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/26/1999 WALTER K ZYDHEK 



2881 


D53C 


D7 


ED 




2882 


D53E 


5A 






2883 


D53F 


CI 


11 




2884 


D541 


22 


07 




2885 


D543 


35 


06 




2886 


D545 


97 


EC 




2887 


D547 


D7 


EB 




2888 


D549 


39 






2889 


D54A 


7E 


B4 


4A 


2890 










2891 


D54D 


BD 


B2 


6D 


2892 


D550 


8E 


Bl 


56 


2893 


D553 


D6 


EB 




2894 


D555 


DE 


EC 




2895 


D557 


34 


44 




2896 


D559 


AD 


84 




2897 


D55B 


35 


44 




2898 


D55D 


D7 


EB 




2899 


D55F 


DF 


EC 




2900 


D561 


39 






2901 










2902 










2903 


D562 


8D 


C3 




2904 


D564 


8D 


E7 




2905 


D566 


8D 


BC 




2906 


D568 


9E 


52 




2907 


D56A 


34 


10 




2908 


D56C 


8D 


DF 




2909 


D56E 


BD 


B6 


54 


2910 


D571 


34 


14 




2911 


D573 


5F 






2912 


D574 


8E 


06 


00 


2913 


D577 


6F 


80 




2914 


D579 


5A 






2915 


D57A 


26 


FB 




2916 


D57C 


35 


14 




2917 


D57E 


CE 


06 


80 


2918 


D581 


8D 


96 




2919 


D583 


35 


10 




2920 


D585 


BD 


B6 


59 


2921 


D588 


CE 


06 


00 


2922 


D58B 


8D 


8C 




2923 


D58D 


C6 


03 




2924 


D58F 


8E 


06 


00 


2925 


D592 


9F 


EE 




2926 


D594 


D7 


EA 




2927 


D596 


7E 


D6 


F2 


2928 










2929 










2930 


D599 


10 


27 


D0 82 


2931 


D59D 


BD 


D2 


56 


2932 


D5A0 


C6 


04 




2933 


D5A2 


9D 


A5 




2934 


D5A4 


27 


0C 




2935 


D5A6 


BD 


B7 


38 


2936 


D5A9 


CI 


11 




2937 


D5AB 


10 


24 


DE 9B 


2938 


D5AF 


BD 


A5 


C7 


2939 


D5B2 


34 


04 




2940 


D5B4 


8E 


07 


12 


2941 


D5B7 


C6 


12 




2942 


D5B9 


6F 


82 




2943 


D5BB 


5A 






2944 


D5BC 


26 


FB 




2945 


D5BE 


4F 






2946 


D5BF 


20 


0D 




2947 










2948 










2949 


D5C1 


EB 


E4 




2950 


D5C3 


5C 






2951 


D5C4 


C0 


12 




2952 


D5C6 


24 


FC 




2953 


D5C8 


CB 


12 




2954 


D5CA 


6D 


85 




2955 


D5CC 


26 


F5 




2956 


D5CE 


4C 






2957 


D5CF 


A7 


85 




2958 


D5D1 


81 


12 




2959 


D5D3 


25 


EC 




2960 


D5D5 


32 


61 




2961 


D5D7 


8E 


22 


0F 


2962 


D5DA 


9C 


27 




2963 


D5DC 


10 


22 


D6 64 


2964 


D5E0 


BD 


CA 


E9 


2965 


D5E3 


73 


09 


5C 


2966 


D5E6 


10 


CE 


08 00 


2967 


D5EA 


BD 


95 


AC 


2968 


D5ED 


86 


00 




2969 


D5EF 


97 


EA 




2970 


D5F1 


0F 


EC 




2971 


D5F3 


BD 


D6 


F2 


2972 


D5F6 


7F 


09 


85 


2973 


D5F9 


86 


C0 




2974 


D5FB 


B7 


FF 


48 


2975 


D5FE 


BD 


D7 


Dl 


2976 


D601 


27 


ID 







STB 


DSEC 




DECB 






CMPB 


SSECMAX-1 




BHI 


LD54A 




PULS 


A,B 




STA 


DCTRK 




STB 


DCDRV 




RTS 




LD54A 


JMP 


LB44A 


LD54D 


JSR 


SYNCOMMA 




LDX 


#LB156 


LD553 


LDB 


DCDRV 




LDU 


DCTRK 




PSHS 


S,B 




JSR 


,x 




PULS 


B,S 




STB 


DCDRV 




STU 


DCTRK 




RTS 




* DSKO$ 


COMMAND 


DSKO 


BSR 


LD527 




BSR 


LD54D 




BSR 


LD524 




LDX 


FPA0+2 




PSHS 


X 




BSR 


LD54D 




JSR 


LB654 




PSHS 


X,B 




CLRB 






LDX 


#DBUF0 


LD577 


CLR 

DECB 


,x+ 




BNE 


LD577 




PULS 


B,X 




LDU 


#DBUF0+128 




BSR 


LD519 




PULS 


X 




JSR 


LB659 




LDU 


#DBUF0 




BSR 


LD519 




LDB 


#$03 




LDX 


#DBUF0 




STX 


DCBPT 




STB 


DCOPC 




JMP 


LD6F2 


* DSKIN1 


. COMMAND 


DSKINI 


LBEQ 


LA61F 




JSR 


LD256 




LDB 


#$04 




JSR 


GETCCH 




BEQ 


LD5B2 




JSR 


LB738 




CMPB 


#17 




LBHS 


LB44A 




JSR 


LA5C7 


LD5B2 


PSHS 


B 




LDX 


#DBUF1+SECMAX 




LDB 


SSECMAX 


LD5B9 


CLR 

DECB 


,-x 




BNE 


LD5B9 




CLRA 






BRA 


LD5CE 


* CALCULATE LOGICAL SECTOR l> 


LD5C1 


ADDB 


,S 


LD5C3 


INCB 




LD5C4 


SUBB 


#SECMAX 




BHS 


LD5C4 




ADDB 


#SECMAX 




TST 


B,X 




BNE 


LD5C3 


LD5CE 


INCA 






STA 


B,X 




CMPA 


#SECMAX 




BLO 


LD5C1 




LEAS 


$01, S 




LDX 


#DFLBUF+$1888 




CMPX 


MEMSIZ 




LBHI 


LAC44 




JSR 


DVEC7 




COM 


DRESFL 




LDS 


#DBUF1+SECLEN 




JSR 


L95AC 




LDA 


#$00 




STA 


DCOPC 




CLR 


DCTRK 




JSR 


LD6F2 




CLR 


RDYTMR 




LDA 


#$C0 




STA 


FDCREG 




JSR 


LD7D1 




BEQ 


LD620 



SAVE SECTOR NUMBER IN DSKCON VARIABLE 

♦USELESS INSTRUCTION. NEXT INSTRUCTION SHOULD JUST 

♦CHECK FOR MAXIMUM SECTOR NUMBER (SECMAX) 

'FC ERROR IF SECTOR NUMBER TOO BIG 

* GET TRACK AND DRIVE NUMBER OFF OF 

* THE STACK AND SAVE IN DSKCON 

* VARIABLES 

JUMP TO 'FC ERROR 

SYNTAX CHECK FOR COMMA 

POINT X TO 'EVALUATE EXPRESSION' ROUTINE ADDRESS 

* GET THE DSKCON DRIVE, TRACK AND 

* SECTOR VALUES AND SAVE THEM ON THE STACK 
* 

GO EVALUATE AN EXPRESSION OR A VARIABLE 

* GET THE DRIVE, TRACK AND SECTOR 

* NUMBERS OFF OF THE STACK AND PUT 

* THEM BACK INTO THE DSKCON VARIABLES 



GET THE DRIVE, TRACK AND SECTOR NUMBERS 
GET THE DESCRIPTOR OF STRING 1 
■TM' ERROR IF NUMERIC EXPRESSION 

* GET STRING 1 DESCRIPTOR ADDRESS 

* AND SAVE IT ON THE STACK 
GET THE DESCRIPTOR OF STRING 2 

*GET LENGTH AND ADDRESS OF STRING 2 AND 

*SAVE THEM ON THE STACK 

SET CLEAR COUNTER TO 256 (FULL SECTOR BUFFER) 

USE DBUF0 AS THE DSKO$ I/O BUFFER 

CLEAR A BYTE IN I/O BUFFER 

DECREMENT CLEAR COUNTER 

BRANCH IF ALL 256 BYTES NOT CLEARED 

GET THE LENGTH AND ADDRESS OF STRING 2 

POINT X TO STRING 2 DESTINATION 

MOVE STRING 2 DATA INTO DBUF0 

POINT X TO STRING 1 DESCRIPTOR 

GET THE LENGTH AND ADDRESS OF STRING 1 

POINT U TO STRING 1 DESTINATION 

MOVE STRING 1 DATA INTO DBUF0 

DSKCON WRITE OP CODE 

POINT X TO I/O BUFFER (DBUF0) 

* SAVE NEW DSKCON BUFFER POINTER AND OP CODE VARIABLES 
GO WRITE OUT A SECTOR 



BRANCH TO ' DN ' ERROR IF NO DRIVE NUMBER SPECIFIED 

CALCULATE DRIVE NUMBER 

SKIP FACTOR DEFAULT VALUE 

GET CURRENT INPUT CHAR FROM BASiC 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA AND EVALUATE EXPRESSION 

MAX VALUE OF SKIP FACTOR = 16 

'ILLEGAL FUNCTION CALL' IF BAD SKIP FACTOR 

SYNTAX ERROR IF MORE CHARACTERS ON THE LINE 

SAVE SKIP FACTOR ON THE STACK 

POINT TO END OF LOGICAL SECTOR NUMBER STORAGE AREA 

18 SECTORS PER TRACK 

CLEAR A BYTE IN THE BUFFER 

CLEARED ALL 18? 

KEEP GOING IF NOT 

RESET PHYSICAL SECTOR COUNTER 

START WITH FIRST PHYSICAL SECTOR = 1 



ADD SKIP FACTOR TO LOGICAL SECTOR COUNTER 

ADD ONE TO LOGICAL SECTOR COUNTER 

SUBTRACT MAX NUMBER OF SECTORS 

BRANCH UNTIL > ACCB >= -18 

ADD 18, NOW ACCB IS 0-17 

IS ANYTHING STORED HERE ALREADY? 

YES - GET ANOTHER SECTOR 

* INCREMENT PHYSICAL SECTOR NUMBER AND 

* SAVE IT IN THE RAM BUFFER 
FINISHED WITH ALL SECTORS? 
NO - KEEP GOING 

REMOVE SKIP FACTOR FROM STACK 

GET TOP OF RAM USED BY DSKINI 

IS IT > CLEARED AREA? 

'OUT OF MEMORY' ERROR IF > CLEARED AREA 

CLOSE ALL FILES 

SET RESET FLAG TO $FF - THIS WILL CAUSE A DOS RESET 

SET STACK TO TOP OF DBUF1 

RESET SAM TO DISPLAY PAGE ZERO AND ALPHA GRAPHICS 

YOU COULD DELETE THIS INSTRUCTION AND CHANGE FOLLOWING STA TO CLR 

RESTORE HEAD TO TRACK ZERO DSKCON OP CODE 

SET DSKCON TRACK VARIABLE TO TRACK ZERO 

RESTORE HEAD TO TRACK ZERO 

RESET THE READY TIMER 

* FOC READ ADDRESS CODE 



CHECK DRIVE READY - WAIT UNTIL READY 
BRANCH IF DRIVES READY 



DISK BASIC UNRAVELLED II 



APPENDIX B 
DISASSEMBLY OF DISK BASIC 1.1 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/26/1999 WALTER K ZYDHEK 



2977 


D603 


7E 


D6 


88 


2978 


D606 


81 


16 




2979 


D608 


25 


08 




2980 


D60A 


B6 


09 


86 


2981 


D60D 


8A 


10 




2982 


D60F 


B7 


FF 


40 


2983 


D612 


86 


53 




2984 


D614 


B7 


FF 


48 


2985 


D617 


IE 


88 




2986 


D619 


IE 


88 




2987 


D61B 


BD 


D7 


Dl 


2988 


D61E 


26 


68 




2989 


D620 


BD 


D7 


F0 


2990 


D623 


8D 


6C 




2991 


D625 


10 


8E 


FF 4B 


2992 


D629 


1A 


50 




2993 


D62B 


8E 


[16 


4F 


2994 


D62E 


BF 


09 


83 


2995 


D631 


8E 


09 


89 


2996 


D634 


B6 


FF 


48 


2997 


D637 


86 


FF 




2998 


D639 


B7 


09 


82 


2999 


D63C 


C6 


F4 




3000 


D63E 


F7 


FF 


48 


3001 


D641 


B6 


09 


86 


3002 


D644 


8A 


80 




3003 


D646 


B7 


FF 


40 


3004 


D649 


E6 


80 




3005 


D64B 


E7 


A4 




3006 


D64D 


20 


FA 




3007 










3008 


D64F 


B6 


FF 


48 


3009 


D652 


1C 


AF 




3010 


D654 


84 


44 




3011 


D656 


97 


F0 




3012 


D658 


26 


2E 




3013 


D65A 


0C 


EC 




3014 


D65C 


96 


EC 




3015 


D65E 


81 


23 




3016 


D660 


26 


A4 




3017 










3018 










3019 


D662 


86 


02 




3020 


D664 


97 


EA 




3021 


D666 


8E 


06 


00 


3022 


D669 


9F 


EE 




3023 


D66B 


CE 


07 


00 


3024 


D66E 


4F 






3025 


D66F 


97 


EC 




3026 


D671 


5F 






3027 


D672 


A6 


C5 




3028 


D674 


97 


ED 




3029 


D676 


BD 


D6 


F2 


3030 


D679 


5C 






3031 


D67A 


CI 


12 




3032 


D67C 


25 


F4 




3033 


D67E 


96 


EC 




3034 


D680 


4C 






3035 


D681 


81 


23 




3036 


D683 


25 


EA 




3037 


D685 


7E 


D2 


CD 


3038 


D688 


7F 


09 


86 


3039 


D68B 


7F 


FF 


40 


3040 


> D68E 


7E 


D7 


01 


3041 










3042 










3043 










3044 


D691 


8E 


09 


89 


3045 


D694 


CC 


20 


4E 


3046 


D697 


8D 


29 




3047 


D699 


5F 






3048 


D69A 


34 


04 




3049 


D69C 


CE 


07 


00 


3050 


D69F 


E6 


C5 




3051 


D6A1 


D7 


ED 




3052 


D6A3 


CE 


D6 


D4 


3053 


D6A6 


C6 


03 




3054 


D6A8 


8D 


IE 




3055 


D6AA 


96 


EC 




3056 


D6AC 


A7 


80 




3057 


D6AE 


6F 


80 




3058 


D6B0 


96 


ED 




3059 


D6B2 


A7 


80 




3060 


D6B4 


C6 


09 




3061 


D6B6 


8D 


10 




3062 


D6B8 


35 


04 




3063 


D6BA 


5C 






3064 


D6BB 


CI 


12 




3065 


D6BD 


25 


DB 




3066 


D6BF 


CC 


C8 


4E 


3067 










3068 










3069 


D6C2 


E7 


80 




3070 


D6C4 


4A 






3071 


D6C5 


26 


FB 




3072 


D6C7 


39 







JMP 

CMPA 

BLO 

LDA 

ORA 

STA 

LDA 

STA 

EXG 

EXG 

JSR 

BNE 

JSR 

BSR 

LDY 

ORCC 

LDX 

STX 

LDX 

LDA 

LDA 

STA 

LDB 

STB 

LDA 

ORA 

STA 

LDB 

STB 

BRA 



LD688 

#22 

LD612 

DRGRAM 

#$10 

DSKREG 

#$53 

FDCREG 

A, A 

A, A 

LD7D1 

LD688 

LD7F0 

LD691 

#FDCREG+3 

#$50 

#LD64F 

DNMIVC 

#DFLBUF 

FDCREG 

#$FF 

NMIFLG 

#$F4 

FDCREG 

DRGRAM 

#$80 

DSKREG 

,X+ 

,Y 

LD649 



LDA FDCREG 
ANDCC#$AF 

ANDA #$44 

STA DCSTA 

BNE LD688 

INC DCTRK 

LDA DCTRK 

CMPA STRKMAX 

BNE LD606 



VERIFY THAT 
LDA 

STA 
LDX 
STX 
LDU 
CLRA 

D66F STA 
CLRB 

D672 LDA 
STA 
JSR 
INCB 
CMPB 
BLO 
LDA 
INCA 
CMPA 
BLO 
JMP 

D688 CLR 
CLR 
JMP 



ALL SECTORS ARE READABLE 

#$02 

DCOPC 

#DBUF0 

DCBPT 

#DBUF1 

DCTRK 

B,U 

DSEC 

LD6F2 

#SECMAX 

LD672 

DCTRK 

#TRKMAX 

LD66F 

LD2CD 

DRGRAM 

DSKREG 

LD701 



ERROR IF DRIVES NOT READY 

= CHECK FOR TRACK 22 ( PRECOMPENSATION) 

= AND BRANCH IF < TRACK 22 - NO PRECOMP 

* GET THE RAM IMAGE OF DSKREG, 'OR' 

* IN THE PRECOMPENSATION FLAG AND 

* SEND IT TO DSKREG 

= GET STEP IN COMMAND 

= AND SEND IT TO THE 1793 

* DELAY AFTER ISSUING COMMAND TO 1793 

CHECK DRIVE READY 

BRANCH IF NOT READY - ISSUE AN ERROR 

WAIT A WHILE 

BUILD A FORMATTED TRACK IN RAM 

Y POINTS TO 1793 DATA REGISTER 

DISABLE INTERRUPTS 

* GET RETURN ADDRESS AND STORE 

* IT IN THE NON MASKABLE INTERRUPT VECTOR 
POINT X TO THE FORMATTED TRACK RAM IMAGE 
RESET STATUS OF THE 1793 

* ENABLE THE NMI FLAG TO VECTOR 

* OUT OF AN 170 LOOP UPON AN NMI INTERRUPT 
= GET WRITE TRACK COMMAND AND 

= SEND TO 1793 

* GET THE DSKREG RAM IMAGE AND 'OR' IN THE 

* FLAG WHICH WILL ENABLE THE 1793 TO HALT 

* THE 6809. SEND RESULT TO DSKREG 

= GET A BYTE FROM THE FORMATTED TRACK 
= RAM IMAGE, SEND IT TO THE 1793 AND 
= LOOP BACK TO GET ANOTHER BYTE 

GET STATUS 
ENABLE INTERRUPTS 

* KEEP ONLY WRITE PROTECT S LOST DATA 

* AND SAVE IT IN THE DSKCON STATUS BYTE 
BRANCH IF ERROR 

SKIP TO THE NEXT TRACK 
GET THE TRACK NUMBER 
WAS IT THE LAST TRACK 
NO - KEEP GOING 



= GET THE DSKCON READ OP CODE 

= AND SAVE IT IN THE DSKCON VARIABLE 

* POINT THE DSKCON BUFFER POINTER 

* TO DBUF0 

POINT U TO THE LOGICAL SECTOR NUMBERS 

RESET THE TRACK COUNTER TO ZERO 

SET THE DSKCON TRACK VARIABLE 

RESET THE SECTOR COUNTER 

GET THE PHYSICAL SECTOR NUMBER 

SAVE DSKCON SECTOR VARIABLE 

READ A SECTOR 

* INCREMENT THE SECTOR COUNTER 

* AND COMPARE IT TO MAXIMUM SECTOR NUMBER 

* AND KEEP LOOPING IF MORE SECTORS LEFT 
= GET THE CURRENT TRACK NUMBER 

= ADD ONE TO IT, COMPARE TO THE MAXIMUM TRACK 

= NUMBER AND KEEP LOOPING IF 

= THERE ARE STILL TRACKS TO DO 

GO CHECK FOR A DOS RESET 

CLEAR RAM IMAGE OF DSKREG 

CLEAR DSKREG - TURN DISK MOTORS OFF 

PROCESS DRIVES NOT READY ERROR 



BUILD A FORMATTED TRACK OF DATA IN RAM STARTING AT DFLBUF. 



LDX 


#DFLBUF 


LDD 


#$204E 


BSR 


LD6C2 


CLRB 




PSHS 


B 


LDU 


#DBUF1 


LDB 


B,U 


STB 


DSEC 


LDU 


#LD6D4 


LDB 


#$03 


BSR 


LD6C8 


LDA 


DCTRK 


STA 


,x+ 


CLR 


,x+ 


LDA 


DSEC 


STA 


,x+ 


LDB 


#$09 


BSR 


LD6C8 


PULS 


B 


INCB 




CMPB 


#SECMAX 


BLO 


LD69A 


LDD 


#$C84E 



* WRITE ACCA BYTES OF ACCB INTO BUFFER 
LD6C2 STB ,X+ 

DECA 

BNE LD6C2 

RTS 



START TRACK BUFFER AT DFLBUF 

GET SET TO WRITE 32 BYTES OF $4E 

GO WRITE GAP IV 

RESET SECTOR COUNTER 

SAVE SECTOR COUNTER 

POINT U TO THE TABLE OF LOGICAL SECTORS 

* GET LOGICAL SECTOR NUMBER FROM TABLE AND 

* SAVE IT IN THE DSKCON VARIABLE 

POINT U TO TABLE OF SECTOR FORMATTING DATA 

* GET FIRST 3 DATA BLOCKS AND 

* WRITE THEM TO BUFFER 

= GET TRACK NUMBER AND STORE IT 

= IN THE RAM BUFFER 

CLEAR A BYTE (SIDE NUMBER) IN BUFFER 

* GET SECTOR NUMBER AND 

* STORE IT IN THE BUFFER 

= GET THE LAST NINE DATA BLOCKS AND 

= WRITE THEM TO THE BUFFER 

GET SECTOR COUNTER 

NEXT SECTOR 

18 SECTORS PER TRACK 

BRANCH IF ALL SECTORS NOT DONE 

WRITE 200 BYTES OF $4E AT END OF TRACK 



STORE A BYTE IN THE BUFFER 

DECREMENT COUNTER 

BRANCH IF ALL BYTES NOT MOVED 



DISK BASIC UNRAVELLED II 
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REVISED:12/26/1999 WALTER K ZYDHEK 



3073 


D6C8 


34 


04 


3074 


D6CA 


EC 


CI 


3075 


D6CC 


8D 


F4 


3076 


D6CE 


35 


04 


3077 


D6D0 


5A 




3078 


D6D1 


26 


F5 


3079 


D6D3 


39 




3080 








3081 








3082 








3083 








3084 








3085 








3086 








3087 








3088 


D6D4 


08 


00 


3089 


D6D6 


03 


F5 


3090 


D6D8 


01 


FE 


3091 








3092 


D6DA 


01 


01 


3093 


D6DC 


01 


F7 


3094 


D6DE 


16 


4E 


3095 


D6E0 


0C 


00 


3096 


D6E2 


03 


F5 


3097 


D6E4 


01 


FB 


3098 


D6E6 


00 


FF 


3099 


D6E8 


01 


F7 


3100 


D6EA 


18 


4E 


3101 








3102 








3103 








3104 


D6EC 


26 


54 


3105 


D6EE 


6E 


9F C0 0A 


3106 








3107 


D6F2 


34 


04 


3108 


D6F4 


C6 


05 


3109 


D6F6 


F7 


09 88 


3110 


D6F9 


35 


04 


3111 


D6FB 


8D 


62 


3112 


D6FD 


0D 


F0 


3113 


D6FF 


27 


0D 


3114 


D701 


96 


F0 


3115 


D703 


C6 


3C 


3116 


D705 


85 


40 


3117 


D707 


26 


02 


3118 


D709 


C6 


28 


3119 


D70B 


7E 


AC 46 


3120 


D70E 


34 


02 


3121 


D710 


96 


EA 


3122 


D712 


81 


03 


3123 


D714 


35 


02 


3124 


D716 


26 


2A 


3125 


D718 


7D 


09 87 


3126 


D71B 


27 


25 


3127 


D71D 


34 


56 


3128 


D71F 


86 


02 


3129 


D721 


97 


EA 


3130 


D723 


DE 


EE 


3131 


D725 


8E 


07 00 


3132 


D728 


9F 


EE 


3133 


D72A 


8D 


33 


3134 


D72C 


DF 


EE 


3135 


D72E 


86 


03 


3136 


D730 


97 


EA 


3137 


D732 


96 


F0 


3138 


D734 


26 


0D 


3139 


D736 


5F 




3140 


D737 


A6 


80 


3141 


D739 


Al 


C0 


3142 


D73B 


26 


06 


3143 


D73D 


5A 




3144 


D73E 


26 


F7 


3145 


D740 


35 


56 


3146 


D742 


39 




3147 


D743 


35 


56 


3148 


D745 


7A 


09 88 


3149 


D748 


26 


Bl 


3150 


D74A 


C6 


48 


3151 


D74C 


20 


BD 


3152 








3153 








3154 


D74E 


5F 




3155 


D74F 


81 


AA 


3156 


D751 


27 


07 


3157 


D753 


53 




3158 


D754 


81 


88 


3159 


D756 


10 


26 DB ID 


3160 


D75A 


F7 


09 87 


3161 


D75D 


0E 


9F 


3162 








3163 








3164 


D75F 


34 


76 


3165 


D761 


86 


05 


3166 


D763 


34 


02 


3167 


D765 


7F 


09 85 


3168 


D768 


D6 


EB 



LD6C8 PSHS B 

LDD ,U++ 

BSR LD6C2 

PULS B 

DECB 

BNE LD6C8 

RTS 

* DATA USED TO FORMAT A SECTOR ON THE DISK 



SAVE THE COUNTER ON THE STACK 

GET TWO BYTES OF DATA FROM THE TABLE 

WRITE ACCA BYTES OF ACCB INTO THE BUFFER 

* GET THE COUNTER BACK, DECREMENT 

* IT AND BRANCH IF ALL DATA BLOCKS 

* NOT DONE 



THESE DATA ARE CLOS 
DOUBLE DENSITY. THE 
1793 DATA SHEET. TH 
ALLOWABLE. THE IBM 
BLOCKS WHILE COLOR 



FCB 


8,0 


FCB 


3,$F5 


FCB 


1,$FE 


SIDE 


, AND SEi 


FCB 


1,1 


FCB 


1,$F7 


FCB 


22,$4E 


FCB 


12,0 


FCB 


3,$F5 


FCB 


1,$FB 


FCB 


0,$FF 


FCB 


1,$F7 


FCB 


24,$4E 



E TO THE IBM SYSTEM 34 FORMAT FOR 256 BYTE SECTORS. 
FORMAT GENERALLY CONFORMS TO THAT SPECIFIED ON THE 
E GAP SIZES HAVE BEEN REDUCED TO THE MINIMUM 
FORMAT USES $40 AS THE FILL CHARACTER FOR THE DATA 
DOS USES AN $FF AS THE FILL CHARACTER. 
SYNC FIELD 



CTOR NUMBERS ARE 



* DOS COMMAND 

DOS BNE LD742 

JMP [DOSVEC] 



LD6F2 


PSHS 


B 




LDB 


#$05 




STB 


ATTCTR 




PULS 


B 


LD6FB 


BSR 


DSKCON 




TST 


DCSTA 




BEQ 


LD70E 


LD701 


LDA 


DCSTA 




LDB 


#2*30 




BITA 


#$40 




BNE 


LD70B 


LD709 


LDB 


#2*20 


LD70B 


JMP 


LAC46 


LD70E 


PSHS 


A 




LDA 


DCOPC 




CMPA 


#$03 




PULS 


A 




BNE 


LD742 




TST 


DVERFL 




BEQ 


LD742 




PSHS 


U,X,B,A 




LDA 


#$02 




STA 


DCOPC 




LDU 


DCBPT 




LDX 


#DBUF1 




STX 


DCBPT 




BSR 


DSKCON 




STU 


DCBPT 




LDA 


#$03 




STA 


DCOPC 




LDA 


DCSTA 




BNE 


LD743 




CLRB 




LD737 


LDA 


,x+ 




CMPA 


,u+ 




BNE 


LD743 




DECB 






BNE 


LD737 




PULS 


A,B,X,U 


LD742 


RTS 




LD743 


PULS 


A,B,X,U 




DEC 


ATTCTR 




BNE 


LD6FB 




LDB 


#2*36 




BRA 


LD70B 


* VERIFY 


COMMAND 


VERIFY 


CLRB 






CMPA 


#$AA 




BEQ 


LD75A 




COMB 






CMPA 


#$88 




LBNE 


LB277 


LD75A 


STB 


DVERFL 




JMP 


GETNCH 



* DSKCON ROUTINE 
DSKCON PSHS U,Y,X,B 

LDA #$05 

PSHS A 
LD765 CLR RDYTMR 

LDB DCDRV 



ID ADDRESS MARK (AMD 
INSERTED HERE 

SECTOR SIZE (256 BYTE SECTORS) 

CRC REOUEST 

GAP II (POST-ID GAP) 

SYNC FIELD 

DATA ADDRESS MARK (AM2) 
DATA FIELD (256 BYTES) 
CRC REOUEST 
GAP III (POST DATA GAP) 



RETURN IF ARGUMENT GIVEN 
JUMP TO THE DOS COMMAND 

SAVE ACCB 

5 RETRIES 

SAVE RETRY COUNT 

RESTORE ACCB 

GO EXECUTE COMMAND 

CHECK STATUS 

BRANCH IF NO ERRORS 

GET DSKCON ERROR STATUS 

'WRITE PROTECTED' ERROR 

CHECK BIT 6 OF STATUS 

BRANCH IF WRITE PROTECT ERROR 

'170 ERROR' 

JUMP TO ERROR DRIVER 

SAVE ACCA 

GET OPERATION CODE 

CHECK FOR WRITE SECTOR COMMAND 

RESTORE ACCA 

RETURN IF NOT WRITE SECTOR 

CHECK VERIFY FLAG 

RETURN IF NO VERIFY 

SAVE REGISTERS 

READ OPERATION CODE 

STORE TO DSKCON PARAMETER 

POINT U TO WRITE BUFFER ADDRESS 

* ADDRESS OF VERIFY BUFFER 

* TO DSKCON VARIABLE 
GO READ SECTOR 
RESTORE WRITE BUFFER 
WRITE OP CODE 

SAVE IN DSKCON VARIABLE 

CHECK STATUS FOR THE READ OPERATION 

BRANCH IF ERROR 

CHECK 256 BYTES 

GET BYTE FROM WRITE BUFFER 

COMPARE TO READ BUFFER 

BRANCH IF NOT EQUAL 

* DECREMENT BYTE COUNTER AND 

* BRANCH IF NOT DONE 
RESTORE REGISTERS 

RESTORE REGISTERS 

DECREMENT THE VERIFY COUNTER 

BRANCH IF MORE TRIES LEFT 

'VERIFY ERROR' 

JUMP TO ERROR HANDLER 



OFF FLAG = 

OFF TOKEN ? 

YES 

ON FLAG = $FF 

ON TOKEN 

BRANCH TO 'SYNTAX ERROR' IF NOT ON OR OFF 

SET VERIFY FLAG 

GET NEXT CHARACTER FROM BASIC 



SAVE REGISTERS 

* GET RETRY COUNT AND 

* SAVE IT ON THE STACK 
RESET DRIVE NOT READY TIMER 
GET DRIVE NUMBER 
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3169 


D76A 


8E 


D8 


9D 


3170 


D76D 


B6 


09 


86 


3171 


D770 


84 


A8 




3172 


D772 


AA 


85 




3173 


D774 


8A 


20 




3174 


D776 


D6 


EC 




3175 


D778 


CI 


16 




3176 


D77A 


25 


02 




3177 


D77C 


8A 


10 




3178 


D77E 


IF 


89 




3179 


D780 


8A 


08 




3180 


D782 


B7 


09 


86 


3181 


D785 


B7 


FF 


40 


3182 


D788 


C5 


08 




3183 


D78A 


26 


06 




3184 


D78C 


BD 


A7 


Dl 


3185 


D78F 


BD 


A7 


Dl 


3186 


D792 


8D 


3D 




3187 


D794 


26 


0A 




3188 


D796 


0F 


F0 




3189 


D798 


8E 


D8 


95 


3190 


D79B 


D6 


EA 




3191 


D79D 


58 






3192 


D79E 


AD 


95 




3193 


D7A0 


35 


02 




3194 


D7A2 


D6 


F0 




3195 


D7A4 


27 


0B 




3196 


D7A6 


4A 






3197 


D7A7 


27 


08 




3198 


D7A9 


34 


02 




3199 


D7AB 


8D 


0B 




3200 


D7AD 


26 


Fl 




3201 


D7AF 


20 


B4 




3202 


D7B1 


86 


78 




3203 


D7B3 


B7 


09 


85 


3204 


D7B6 


35 


F6 




3205 










3206 


D7B8 


8E 


09 


7E 


3207 


D7BB 


D6 


EB 




3208 


D7BD 


6F 


85 




3209 


D7BF 


86 


03 




3210 


D7C1 


B7 


FF 


48 


3211 


D7C4 


IE 


88 




3212 


D7C6 


IE 


88 




3213 


D7C8 


8D 


07 




3214 


D7CA 


8D 


24 




3215 


D7CC 


84 


10 




3216 


D7CE 


97 


F0 




3217 


D7D0 


39 






3218 










3219 










3220 


D7D1 


9E 


8A 




3221 


D7D3 


30 


IF 




3222 


D7D5 


27 


08 




3223 


D7D7 


B6 


FF 


48 


3224 


D7DA 


85 


01 




3225 


D7DC 


26 


F5 




3226 


D7DE 


39 






3227 


D7DF 


86 


D0 




3228 


D7E1 


B7 


FF 


48 


3229 


D7E4 


IE 


88 




3230 


D7E6 


IE 


88 




3231 


D7E8 


B6 


FF 


48 


3232 


D7EB 


86 


80 




3233 


D7ED 


97 


F0 




3234 


D7EF 


39 






3235 










3236 


D7F0 


8E 


22 


2E 


3237 


D7F3 


30 


IF 




3238 


D7F5 


26 


FC 




3239 


D7F7 


39 






3240 










3241 


D7F8 


86 


80 




3242 


D7FA 


8C 






3243 










3244 


D7FB 


86 


A0 




3245 


D7FD 


34 


02 




3246 


D7FF 


8E 


09 


7E 


3247 


D802 


D6 


EB 




3248 


D804 


3A 






3249 


D805 


E6 


84 




3250 


D807 


F7 


FF 


49 


3251 


D80A 


Dl 


EC 




3252 


D80C 


27 


IE 




3253 


D80E 


96 


EC 




3254 


D810 


B7 


FF 


4B 


3255 


D813 


A7 


84 




3256 


D815 


86 


17 




3257 


D817 


B7 


FF 


48 


3258 


D81A 


IE 


88 




3259 


D81C 


IE 


88 




3260 


D81E 


8D 


Bl 




3261 


D820 


26 


08 




3262 


D822 


8D 


CC 




3263 


D824 


84 


18 




3264 


D826 


27 


04 





LDX 


#LD89D 


LDA 


DRGRAM 


ANDA 


#$A8 


ORA 


B,X 


ORA 


#$20 


LDB 


DCTRK 


CMPB 


#22 


BLO 


LD77E 


ORA 


#$10 


TFR 


A,B 


ORA 


#$08 


STA 


DRGRAM 


STA 


DSKREG 


BITB 


#$08 


BNE 


LD792 


JSR 


LA7D1 


JSR 


LA7D1 


BSR 


LD7D1 


BNE 


LD7A0 


CLR 


DCSTA 


LDX 


#LD895 


LDB 


DCOPC 


ASLB 




JSR 


[B,X] 


PULS 


A 


LDB 


DCSTA 


BEQ 


LD7B1 


DECA 




BEQ 


LD7B1 


PSHS 


A 


BSR 


LD7B8 


BNE 


LD7A0 


BRA 


LD765 


LDA 


#120 


STA 


RDYTMR 


PULS 


A,B,X,Y,U,PC 


-I HEAD TO TRACK 


LDX 


#DR0TRK 


LDB 


DCDRV 


CLR 


B,X 


LDA 


#$03 


STA 


FDCREG 


EXG 


A, A 


EXG 


A, A 


BSR 


LD7D1 


BSR 


LD7F0 


ANDA 


#$10 


STA 


DCSTA 



LD7D0 RTS 

* WAIT FOR THE 1793 TO BECOME UNBUSY. IF IT 

* FORCE AN INTERRUPT AND ISSUE A DRIVE NOT 



LD7D1 


LDX 


ZERO 


LD7D3 


LEAX 


-1,X 




BEQ 


LD7DF 




LDA 


FDCREG 




BITA 


#$01 




BNE 


LD7D3 




RTS 




LD7DF 


LDA 


#$D0 




STA 


FDCREG 




EXG 


A, A 




EXG 


A, A 




LDA 


FDCREG 




LDA 


#$80 




STA 


DCSTA 




RTS 




* MEDIUM DELAY 


LD7F0 


LDX 


#8750 


LD7F3 


LEAX 


-1,X 




BNE 


LD7F3 




RTS 




* READ 


DNE SECTOR 


LD7F8 


LDA 


#$80 


LD7FA 


CMPX 


#$86A0 


* WRITE 


ONE SECTOR 


LD7FB 


LDA 


#$A0 




PSHS 


A 




LDX 


#DR0TRK 




LDB 


DCDRV 




ABX 






LDB 


,x 




STB 


FDCREG+1 




CMPB 


DCTRK 




BEQ 


LD82C 




LDA 


DCTRK 




STA 


FDCREG+3 




STA 


,x 




LDA 


#$17 




STA 


FDCREG 




EXG 


A, A 




EXG 


A, A 




BSR 


LD7D1 




BNE 


LD82A 




BSR 


LD7F0 




ANDA 


#$18 




BEQ 


LD82C 



POINT X TO DRIVE ENABLE MASKS 

GET DSKREG IMAGE 

KEEP MOTOR STATUS, DOUBLE DENSITY. HALT ENABLE 

'OR' IN DRIVE SELECT DATA 

'OR' IN DOUBLE DENSITY 

GET TRACK NUMBER 

PRECOMPENSATION STARTS AT TRACK 22 

BRANCH IF LESS THAN 22 

TURN ON WRITE PRECOMPENSATION IF >= 22 

SAVE PARTIAL IMAGE IN ACCB 

'OR' IN MOTOR ON CONTROL BIT 

SAVE IMAGE IN RAM 

PROGRAM THE 1793 CONTROL REGISTER 

= WERE MOTORS ALREADY ON? 

= DON'T WAIT FOR IT TO COME UP TO SPEED IF ALREADY ON 

* WAIT A WHILE 

* WAIT SOME MORE FOR MOTOR TO COME UP TO SPEED 
WAIT UNTIL NOT BUSY OR TIME OUT 

BRANCH IF TIMED OUT (DOOR OPEN. NO DISK, NO POWER. ETC.) 

CLEAR STATUS REGISTER 

POINT TO COMMAND JUMP VECTORS 

GET COMMAND 

2 BYTES PER COMMAND JUMP ADDRESS 

GO DO IT 

GET RETRY COUNT 

GET STATUS 

BRANCH IF NO ERRORS 

DECREMENT RETRIES COUNTER 

BRANCH IF NO RETRIES LEFT 

SAVE RETRY COUNT ON STACK 

RESTORE HEAD TO TRACK 

BRANCH IF SEEK ERROR 

GO TRY COMMAND AGAIN IF NO ERROR 

120*1/60 = 2 SECONDS (1/60 SECOND FOR EACH IRO INTERRUPT) 

WAIT 2 SECONDS BEFORE TURNING OFF MOTOR 

RESTORE REGISTERS - EXIT DSKCON 

POINT TO TRACK TABLE 
GET DRIVE NUMBER 
ZERO TRACK NUMBER 

* RESTORE HEAD TO TRACK 0, UNLOAD THE HEAD 

* AT START, 30 MS STEPPING RATE 

= WAIT FOR 1793 TO RESPOND TO COMMAND 

WAIT TILL DRIVE NOT BUSY 

WAIT SOME MORE 

1793 STATUS : KEEP ONLY SEEK ERROR 

SAVE IN DSKCON STATUS 

DOES NOT BECOME UNBUSY, 
READY 1793 ERROR. 

GET ZERO TO X REGISTER - LONG WAIT 

DECREMENT LONG WAIT COUNTER 

IF NOT READY BY NOW, FORCE INTERRUPT 

* GET 1793 STATUS AND TEST 

* BUSY STATUS BIT 
BRANCH IF BUSY 

* FORCE INTERRUPT COMMAND - TERMINATE ANY COMMAND 

* IN PROCESS. DO NOT GENERATE A 1793 INTERRUPT REQUEST 

* WAIT BEFORE READING 1793 

RESET INTRQ ( FDC INTERRUPT REQUEST) 

RETURN DRIVE NOT READY STATUS IF THE DRIVE DID NOT BECOME UNBUSY 

SAVE DSKCON STATUS BYTE 



DELAY FOR A WHILE 

* DECREMENT DELAY COUNTER AND 

* BRANCH IF NOT DONE 



$80 IS READ FLAG (1793 READ SECTOR) 
SKIP TWO BYTES 

$A0 IS WRITE FLAG (1793 WRITE SECTOR) 

SAVE READ/WRITE FLAG ON STACK 

POINT X TO TRACK NUMBER TABLE IN RAM 

GET DRIVE NUMBER 

POINT X TO CORRECT DRIVE'S TRACK BYTE 

GET TRACK NUMBER OF CURRENT HEAD POSITION 

SEND TO 1793 TRACK REGISTER 

COMPARE TO DESIRED TRACK 

BRANCH IF ON CORRECT TRACK 

GET TRACK DESIRED 

SEND TO 1793 DATA REGiSTER 

SAVE IN RAM TRACK IMAGE 

* SEEK COMMAND FOR 1793: DO NOT LOAD THE 

* HEAD AT START, VERIFY DESTINATION TRACK, 

* 30 MS STEPPING RATE - WAIT FOR 

* VALID STATUS FROM 1793 
WAIT TILL NOT BUSY 
RETURN IF TIMED OUT 
WAIT SOME MORE 

KEEP ONLY SEEK ERROR OR CRC ERROR IN ID FIELD 
BRANCH IF NO ERRORS - HEAD ON CORRECT TRACK 
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3265 


D828 


97 


F0 




3266 


D82A 


35 


82 




3267 










3268 


D82C 


96 


ED 




3269 


D82E 


B7 


FF 


4A 


327EI 


D831 


8E 


D8 


8B 


3271 


D834 


BF 


09 


83 


3272 


D837 


9E 


EE 




3273 


D839 


B6 


FF 


48 


3274 


D83C 


B6 


09 


86 


3275 


D83F 


8A 


80 




3276 


D841 


35 


04 




3277 


D843 


10 


9E 


8A 


3278 


D846 


CE 


FF 


48 


3279 


D849 


73 


09 


82 


3280 


D84C 


1A 


50 




3281 


D84E 


F7 


FF 


48 


3282 


D851 


IE 


88 




3283 


D853 


IE 


88 




3284 


D855 


CI 


80 




3285 


D857 


27 


1C 




3286 










3287 


D859 


C6 


02 




3288 


D85B 


E5 


C4 




3289 


D85D 


26 


0C 




3290 


D85F 


31 


3F 




3291 


D861 


26 


F8 




3292 


D863 


7F 


09 


82 


3293 


D866 


1C 


AF 




3294 


D868 


7E 


D7 


DF 


3295 










3296 










3297 


D86B 


E6 


80 




3298 


D86D 


F7 


FF 


4B 


3299 


D870 


B7 


FF 


40 


3300 


D873 


20 


F6 




3301 










3302 


D875 


C6 


02 




3303 


D877 


E5 


C4 




3304 


D879 


26 


06 




3305 


D87B 


31 


3F 




3306 


D87D 


26 


F8 




3307 


D87F 


20 


E2 




3308 










3309 










3310 


D881 


F6 


FF 


4B 


3311 


D884 


E7 


80 




3312 


D886 


B7 


FF 


40 


3313 


D889 


20 


F6 




3314 










3315 


D88B 


1C 


AF 




3316 


D88D 


B6 


FF 


48 


3317 


D890 


84 


7C 




3318 


D892 


97 


F0 




3319 


D894 


39 






3320 










3321 










3322 


D895 


D7 


B8 




3323 


D897 


D7 


DO 




3324 


D899 


D7 


F8 




3325 


D89B 


D7 


FB 




3326 










3327 










3328 


D89D 


01 






3329 


D89E 


02 






3330 


D89F 


04 






3331 


D8A0 


40 






3332 










3333 










3334 


D8A1 


B6 


09 


82 


3335 


D8A4 


27 


08 




3336 


D8A6 


BE 


09 


83 


3337 


D8A9 


AF 


6A 




3338 


D8AB 


7F 


09 


82 


3339 


D8AE 


3B 






3340 










3341 










3342 


D8AF 


B6 


FF 


03 


3343 


D8B2 


2A 


FA 




3344 


D8B4 


B6 


FF 


02 


3345 


D8B7 


B6 


09 


85 


3346 


D8BA 


27 


11 




3347 


D8BC 


4A 






3348 


D8BD 


B7 


09 


85 


3349 


D8C0 


26 


0B 




3350 


D8C2 


B6 


09 


86 


3351 


D8C5 


84 


B0 




3352 


D8C7 


B7 


09 


86 


3353 


D8CA 


B7 


FF 


40 


3354 


D8CD 


7E 


89 


55 


3355 










3356 










3357 










3358 










3359 










3360 













STA 


DCSTA 


LD82A 


PULS 


A, PC 


* HEAD 


POSITIONED ON CORRECT TRACK 


LD82C 


LDA 


DSEC 




STA 


FDCREG+2 




LDX 


#LD88B 




STX 


DNMIVC 




LDX 


DCBPT 




LDA 


FDCREG 




LDA 


DRGRAM 




ORA 


#$80 




PULS 


B 




LDY 


ZERO 




LDU 


#FDCREG 




COM 


NMIFLG 




ORCC 


#$50 




STB 


FDCREG 




EXG 


A, A 




EXG 


A, A 




CMPB 


#$80 




BEQ 


LD875 


* WAIT 


FOR THE 1793 TO ACKNOWLEDGE 




LDB 


#$02 


LD85B 


BITB 


,0 




BNE 


LD86B 




LEAY 


-i,v 




BNE 


LD85B 


LD863 


CLR 


NMIFLG 




ANDCC#$AF 




JMP 


LD7DF 



* WRITE A SECTOR 
LD86B LDB ,X+ 

STB FDCREG+3 
STA DSKREG 
BRA LD86B 



SAVE IN DSKCON STATUS 



GET SECTOR NUMBER DESIRED 
SEND TO 1793 SECTOR REGISTER 

* POINT X TO ROUTINE TO BE VECTORED 

* TO BY NMI UPON COMPLETION OF DISK I/O AND SAVE VECTOR 
POINT X TO I/O BUFFER 

RESET INTRO ( FDC INTERRUPT REQUEST) 
GET DSKREG IMAGE 

SET FLAG TO ENABLE 1793 TO HALT 6809 
GET READ/WRITE COMMAND FROM STACK 
ZERO OUT Y - TIMEOUT INITIAL VALUE 
U POINTS TO 1793 INTERFACE REGISTERS 
NMI FLAG = $FF: ENABLE NMI VECTOR 
DISABLE FIRQ, IRQ 

* SEND READ/WRITE COMMAND TO 1793: SINGLE RECORD, COMPARE 

* FOR SIDE 0, NO 15 MS DELAY, DISABLE SIDE SELECT 

* COMPARE, WRITE DATA ADDRESS MARK (FB) - WAIT FOR STATUS 
WAS THIS A READ? 

IF SO, GO LOOK FOR DATA 
TO WRITE DATA 

DRQ MASK BIT 

IS 1793 READY FOR A BYTE? (DRQ SET IN STATUS BYTE) 

BRANCH IF SO 

DECREMENT WAIT TIMER 

KEEP WAITING FOR THE 1793 DRQ 

RESET NMI FLAG 

ENABLE FIRQ, IRQ 

FORCE INTERRUPT, SET DRIVE NOT READY ERROR 



GET A BYTE FROM RAM 
SEND IT TO 1793 DATA REGISTER 
REPROGRAM FDC CONTROL REGISTER 
SEND MORE DATA 



WAIT FOR THE 17933 TO ACKNOWLEDGE READY TO READ DATA 



LD875 


LDB 


#$02 


LD877 


BITB 


,u 




BNE 


LD881 




LEAY 


-l.Y 




BNE 


LD877 




BRA 


LD863 



DRQ MASK BIT 

DOES THE 1793 HAVE A BYTE? (DRQ SET IN STATUS BYTE) 

YES, GO READ A SECTOR 

DECREMENT WAIT TIMER 

KEEP WAITING FOR 1793 DRQ 

GENERATE DRIVE NOT READY ERROR 



* READ A SECTOR 
LD881 LDB FDCREG+3 

STB ,X+ 
STA DSKREG 
BRA LD881 

* BRANCH HERE ON COMPLETION OF SECTOR READ/WRITE 
LD88B ANDCC#$AF 

LDA FDCREG 
ANDA #$7C 
STA DCSTA 
RTS 

* DSKCON OPERATION CODE JUMP VECTORS 
LD895 FDB LD7B8 

FDB LD7D0 
FDB LD7F8 
FDB LD7FB 



GET DATA BYTE FROM 1793 DATA REGISTER 
PUT IT IN RAM 

REPROGRAM FDC CONTROL REGISTER 
KEEP GETTING DATA 



ENABLE IRQ, FIRO 

* GET STATUS S KEEP WRITE PROTECT, RECORD TYPE/WRITE 

* FAULT, RECORD NOT FOUND, CRC ERROR OR LOST DATA 
SAVE IN DSKCON STATUS 



RESTORE HEAD TO TRACK ZERO 
NO OP - RETURN 
READ SECTOR 
WRITE SECTOR 



* DSKREG MASKS FOR DISK DRIVE SELECT 


LD89D 


FCB 


1 




FCB 


2 




FCB 


4 




FCB 


$40 


* NMI 


SERVICE 




DNMISV 


LDA 


NMIFLG 




BEQ 


LD8AE 




LDX 


DNMIVC 




STX 


10, S 




CLR 


NMIFLG 




RTI 




* IRQ 


SERVICE 




DIRQSV 


LDA 


PIA0+3 




BPL 


LD8AE 




LDA 


PIA0+2 




LDA 


RDYTMR 




BEQ 


LD8CD 




DECA 






STA 


RDYTMR 




BNE 


LD8CD 




LDA 


DRGRAM 




ANDA 


#$B0 




STA 


DRGRAM 




STA 


DSKREG 


LD8CD 


JMP 


L8955 



DRIVE SEL 

DRIVE SEL 1 

DRIVE SEL 2 

DRIVE SEL 3 



GET NMI FLAG 

RETURN IF NOT ACTIVE 

GET NEW RETURN VECTOR 

STORE AT STACKED PC SLOT ON STACK 

RESET NMI FLAG 



63.5 MICRO SECOND OR 60 HZ INTERRUPT? 

RETURN IF 63.5 MICROSECOND 

RESET 60 HZ PIA INTERRUPT FLAG 

GET TIMER 

BRANCH IF NOT ACTIVE 

DECREMENT THE TIMER 

SAVE IT 

BRANCH IF NOT TIME TO TURN OFF DISK MOTORS 

= GET DSKREG IMAGE 

= TURN ALL MOTORS AND DRIVE SELECTS OFF 

= PUT IT BACK IN RAM IMAGE 

SEND TO CONTROL REGISTER (MOTORS OFF) 

JUMP TO EXTENDED BASIC'S IRQ HANDLER 



THIS IS THE END OF DISK BASIC (EXCEPT FOR THE DOS COMMAND AT $DF00) . 
THE CODE FROM THIS POINT TO $DF00 IS GARBAGE. 
DOSBAS 1.1 = 1686 WASTED BYTES 

* THIS IS THE CODE FOR THE DOS COMMAND 
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3361 










3362 










3363 


DF00 


11 


3F 




3364 


DF02 


0F 


03 




3365 


DF04 


CC 


26 


00 


3366 


DF07 


34 


06 




3367 


DF09 


BE 


C0 


06 


3368 


DF0C 


0C 


03 




3369 


DF0E 


96 


03 




337EI 


DF10 


81 


12 




3371 


DF12 


22 


22 




3372 


DF14 


A7 


03 




3373 


DF16 


CC 


02 


00 


3374 


DF19 


A7 


84 




3375 


DF1B 


86 


22 




3376 


DF1D 


A7 


02 




3377 


DF1F 


35 


06 




3378 


DF21 


ED 


04 




3379 


DF23 


8B 


01 




3380 


DF25 


34 


06 




3381 


DF27 


AD 


9F 


C0 04 


3382 


DF2B 


6D 


06 




3383 


DF2D 


27 


DA 




3384 


DF2F 


35 


06 




3385 


DF31 


C6 


28 




3386 


DF33 


7E 


AC 


46 


3387 


DF36 


35 


06 




3388 


DF38 


FC 


26 


00 


3389 


DF3B 


10 


83 


4F 53 


3390 


DF3F 


10 


27 


46 BF 


3391 


DF43 


7F 


26 


00 


3392 










3393 


DF46 


7F 


26 


01 


3394 


DF49 


7E 


A0 


E8 


3395 










3396 


DF4C 


CC 


3B 


3B 


3397 


DF4F 


FD 


01 


00 


3398 


DF52 


FD 


01 


02 


3399 


DF55 


FD 


01 


04 


3400 


DF58 


39 






3401 










3402 










3403 










3404 










3405 











ORG 


DOSBAS+$1F00 


SWI3 




CLR 


TMPLOC 


LDD 


#DOSBUF 


PSHS 


B,A 


LDX 


DSKVAR 


INC 


TMPLOC 


LDA 


TMPLOC 


CMPA 


#SECMAX 


BHI 


LDF36 


STA 


$03, X 


LDD 


#$0200 


STA 


,x 


LDA 


#34 


STA 


$02, X 


PULS 


A,B 


STD 


$04, X 


ADDA 


#$01 


PSHS 


B,A 


JSR 


[DCNVEC] 


TST 


$06, X 


BEQ 


LDF09 


PULS 


A,B 


LDB 


#2*20 


JMP 


LAC46 


PULS 


A,B 


LDD 


DOSBUF 


CMPD 


#'OS' 


LBEQ 


DOSBUF+2 


CLR 


DOSBUF 


CLR 


DOSBUF+1 


JMP 


BAWMST 


LDD 


#$3B3B 


STD 


SW3VEC 


STD 


SW3VEC+2 


STD 


SW2VEC+1 


RTS 





DO A SOFTWARE INTERRUPT (#3) 

RESET SECTOR COUNTER 

RAM LOAD ADDRESS FOR SECTOR DATA 

SAVE RAM LOAD ADDRESS 

POINT X TO DSKCON VARIABLES 

INCREMENT SECTOR COUNTER 

GET THE SECTOR COUNTER 

LOADED IN 18 SECTORS? (ONE TRACK) 

YES - EXIT 

NO - SAVE SECTOR NUMBER IN DSEC 

GET FDC OP CODE (READ) AND DRIVE NUMBER (0) 

SAVE THEM IN DSKCON VARIABLES (BUG - SHOULD BE STD ,X) 

GET TRACK NUMBER (34) 

SAVE IT IN DSKCON VARIABLES TOO 

GET RAM LOAD ADDRESS 

AND SAVE IT IN THE DSKCON VARIABLES 

ADD 256 (ONE SECTOR) TO RAM LOAD ADDRESS (SHOULD BE INCA) 

SAVE NEW RAM LOAD ADDRESS 

GO READ A SECTOR 

CHECK FOR ERRORS 

KEEP READING IF NONE 

PULL LOAD ADDRESS OFF OF THE STACK 

'10' ERROR 

JUMP TO ERROR SERVICING ROUTINE 

PULL RAM LOAD ADDRESS OFF OF THE STACK 

GET FIRST TWO BYTES OF RAM DATA 

LOOK FOR 'OS' (0S9) AT START OF BUFFER 

IF 'OS' THEN BRANCH TO DATA LOADED IN RAM 

* OTHERWISE CLEAR THE FIRST TWO 

* BYTES OF RAM DATA 

JUMP TO BASIC'S WARM START 

TWO RTI INSTRUCTIONS 

* LOAD THE SWI2 AND SWI3 JUMP 

* VECTORS WITH RTIS 



END OF THE DOS AND DOSINI COMMANDS - THE REST OF THE CODE 
TO THE END OF THE DISK ROM ($DFFF) IS GARBAGE. 
DOSBAS 1.1 = 167 WASTED BYTES 
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0002 

0003 



00 El 
00 32 



DHITOK 
CYEAR 



EQU 
EQU 



HIGHEST 1.0 DISK TOKEN 



FILE ALLOCATION TABLE FORMAT 



0011 




0012 




0013 




0014 




0015 




0016 




0017 




0018 


00 00 


0019 


00 01 


0020 




0021 




0022 


00 06 


0023 




0024 




0025 




0026 




0027 




0028 




0029 




0030 




0031 




0032 




0033 




0034 




0035 




0036 


00 00 


0037 


00 08 


0038 


00 0B 


0039 


00 0C 


0040 


00 0D 


0041 


00 0E 


0042 




0043 




0044 




0045 




0046 




0047 




0048 




0049 




0050 




0051 




0052 




0053 




0054 




0055 




0056 




0057 




0058 




0059 


00 00 


0060 


00 01 


0061 


00 02 


0062 


00 03 


0063 


00 04 


0064 




0065 


00 06 


0066 


00 07 


0067 


00 09 


0068 


00 0B 


0069 


00 0D 


0070 


00 0F 


0071 




0072 


00 12 


0073 


00 13 


0074 


00 15 


0075 




0076 


00 17 


0077 




0078 


00 19 


0079 




0080 




0081 




0082 


00 00 


0083 


00 01 


0084 


00 02 


0085 


00 03 



0091 


00 06 


0092 


00 07 


0093 




0094 




0095 


00 10 


0096 


00 11 



THE FILE ALLOCATION TABLE (FAT) CONTAINS THE STATUS OF THE GRANULES ON A DISKETTE. 
THE FAT CONTAINS 6 CONTROL BYTES FOLLOWED BY 68 DATA BYTES (ONE PER GRANULE). ONLY THE 
FIRST TWO OF THE SIX CONTROL BYTES ARE USED. A VALUE OF $FF IS SAVED IN UNALLOCATED 
GRANULES. IF BITS 6 S 7 OF THE DATA BYTE ARE SET, THE GRANULE IS THE LAST GRANULE 
IN A FILE AND BITS 0-5 ARE THE NUMBER OF USED SECTORS IN THAT GRANULE. IF BITS 6 S 7 
ARE NOT SET, THE DATA BYTE CONTAINS THE NUMBER OF THE NEXT GRANULE IN THE FILE. 



* OFFSETS TO FAT CONTROL 
FAT0 EQU 
FAT1 EQU 1 



;ytes 



FATCON EQU 



2 TO 5 
6 



ACTIVE FILE COUNTER : DISK TO RAM FAT IMAGE DISABLE 

VALID DATA FLAG: 0=DISK DATA VALID, <> = NEW FAT 

DATA - DISK DATA INVALID 

NOT USED 

OFFSET TO START OF FAT DATA (68 BYTES) 



DIRECTORY ENTRY FORMAT 



THE DIRECTORY IS USED TO KEEP TRACK OF HOW MANY FILES ARE STORED ON A DISKETTE 
AND WHERE THE FILE IS STORED ON THE DISK. THE FIRST GRANULE USED BY THE FILE WILL 
ALLOW THE FAT TO TRACK DOWN ALL OF THE GRANULES USED BY THE FILE. IF THE FIRST 
BYTE OF THE DIRECTORY ENTRY IS ZERO, THE FILE HAS BEEN KILLED; 
IF THE FIRST BYTE IS $FF THEN THE DIRECTORY ENTRY HAS NEVER BEEN USED. 



BYTE 



DIRNAM 


EQU 





DIREXT 


EQU 


8 


DIRTYP 


EQU 


11 


DIRASC 


EQU 


12 


DIRGRN 


EQU 


13 


DIRLST 


EQU 


14 


* 




16 TO 31 



DESCRIPTION 

FILE NAME 

FILE EXTENSION 

FILE TYPE 

ASCII FLAG 

FIRST GRANULE IN FILE 

NUMBER OF BYTES IN LAST SECTOR 

UNUSED 



FILE CONTROL BLOCK FORMAT 



THE FILE STRUCTURE OF COLOR TRS DOS IS CONTROLLED BY A FILE CONTROL BLOCK (FCB) 
THE FCB CONTAINS 25 CONTROL BYTES AND A SECTOR LONG (256 BYTES) DATA BUFFER. 
THE CONTROL BYTES CONTROL THE ORDERLY FLOW OF DATA FROM THE COMPUTER'S RAM TO 
THE DISKETTE AND VICE VERSA. THE OPEN COMMAND INITIALIZES THE FCB; THE INPUT, 
OUTPUT, WRITE, PRINT, GET AND PUT COMMANDS TRANSFER DATA THROUGH THE FCB AND 
THE CLOSE COMMAND TURNS OFF THE FCB. 



TABLES OF OFFSETS TO FCB CONTROL BYTES 



***** RANDOM 


FILE 


* 




BYTE 


FCBTYP 


EQU 





FCBDRV 


EQU 


1 


FCBFGR 


EQU 


2 


FCBCGR 


EQU 


3 


FCBSEC 


EQU 


4 
5 
6 


FCBPOS 


EQU 


FCBREC 


EQU 


7 


FCBRLN 


EQU 


9 


FCBBUF 


EQU 


11 


FCBSOF 


EQU 


13 


FCBFLG 


EQU 


15 
16,17 


FCBDIR 


EQU 


18 


FCBLST 


EQU 


19 


FCBGET 


EQU 


21 



FCBPUT EOU 23 



FCBCON EOU 25 



***** SEQUENTIAL FILE 


* 




BYTE 


FCBTYP 


EQU 





FCBDRV 


EQU 


1 


FCBFGR 


EQU 


2 


FCBCGR 


EQU 


3 


FCBSEC 


EQU 


4 


FCBCPT 


EQU 


5 



FCBPOS 


EQU 


6 


FCBREC 


EQU 


7 

9 TO 15 


FCBRLN 


EQU 


16 


FCBCDT 


EQU 


17 



DESCRIPTION 

FILE TYPE: $40=RANDOM/DIRECT, 0=CLOSED 

DRIVE NUMBER 

FIRST GRANULE IN FILE 

CURRENT GRANULE BEING USED 

CURRENT SECTOR BEING USED (1-9) 

UNUSED 

CURRENT PRINT POSITION - ALWAYS ZERO IN RANDOM FILES 

CURRENT RECORD NUMBER 

RANDOM FILE RECORD LENGTH 

POINTER TO START OF THIS FILE'S RANDOM ACCESS BUFFER 

SECTOR OFFSET TO CURRENT POSITION IN RECORD 

GET/PUT FLAG: 0=PUT, 1=PUT 

NOT USED 

DIRECTORY ENTRY NUMBER (0-71) 

NUMBER OF BYTES IN LAST SECTOR OF FILE 

'GET' RECORD COUNTER: HOW MANY CHARACTERS HAVE BEEN 

PULLED OUT OF THE CURRENT RECORD 

'PUT' RECORD COUNTER: POINTER TO WHERE IN THE RECORD THE NEXT 

BYTE WILL BE 'PUT' 

OFFSET TO START OF FCB DATA BUFFER (256 BYTES) 



DESCRIPTION 

FILE TYPE: $10=INPUT, $20=OUTPUT, 0=CLOSED 

DRIVE NUMBER 

FIRST GRANULE IN FILE 

CURRENT GRANULE BEING USED 

CURRENT SECTOR BEING USED (1-9) 

INPUT FILE: CHARACTER POINTER - POINTS TO NEXT CHARACTER IN 

FILE TO BE PROCESSED. 

OUTPUT FILE: FULL SECTOR FLAG - IF IT IS 1 WHEN THE FILE IS 

CLOSED IT MEANS 256 BYTES OF THE LAST SECTOR HAVE BEEN USED. 

CURRENT PRINT POSITION 

CURRENT RECORD NUMBER: HOW MANY WHOLE SECTORS HAVE BEEN 

INPUT OR OUTPUT TO A FILE. 

UNUSED 

CACHE FLAG: 00=CACHE EMPTY, $FF=CACHE FULL 

CACHE DATA BYTE 
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0097 




00 


12 




FCBDIR 


EQU 


18 




0098 




00 


13 




FCBLST 


EQU 


19 




0099 










* 




21,22 




0100 




00 


17 




FCBDFL 


EQU 


23 




0101 




00 


18 




FCBLFT 


EQU 


24 




0102 










* 








0103 




00 


19 




FCBCON 


EQU 


25 




0104 


















0105 












ORG 


$C000 




0106 


















0107 


C000 


44 


4B 




DOSBAS 


FCC 


•DK' 




0108 


C002 


20 


04 




LC002 


BRA 


LC008 




0109 


















0110 


C004 


D6 


6C 




DCNVEC 


FDB 


DSKCON 




0111 


C006 


00 


EA 




DSKVAR 


FDB 


$00EA 




0112 


















0113 










**** ZERO OUT 


THE RAM USED BY DISK BASIC 




0114 


C008 


8E 


06 


00 


LC008 


LDX 


#DBUF0 




0115 


C00B 


6F 


80 




LC00B 


CLR 


,x+ 




0116 


C00D 


8C 


09 


89 




CMPX 


#DFLBUF 




0117 


C010 


26 


F9 






BNE 


LC00B 




0118 


C012 


8E 


C0 


F6 




LDX 


#LC0F6 




0119 


C015 


CE 


01 


34 




LDU 


#COMVEC+20 




0120 


C018 


C6 


0A 






LDB 


#10 




0121 


C01A 


BD 


A5 


9A 




JSR 


LA59A 




0122 


C01D 


CC 


B2 


77 




LDD 


#LB277 




0123 


C020 


ED 


43 






STD 


$03, U 




0124 


C022 


ED 


48 






STD 


$08, U 




0125 


C024 


6F 


C4 






CLR 


,u 




0126 


C026 


6F 


45 






CLR 


$05, U 




0127 


C028 


CC 


CE 


2E 




LDD 


#DXCVEC 




0128 


C02B 


FD 


01 


2D 




STD 


COMVEC+13 




0129 


C02E 


CC 


CE 


56 




LDD 


SDXIVEC 




0130 


C031 


FD 


01 


32 




STD 


COMVEC+18 




0131 










**** MOVE THE 


NEW RAM VECTORS FROM ROM TO 


RAM 


0132 


C034 


CE 


01 


5E 




LDU 


#RVEC0 




0133 


C037 


86 


7E 




LC037 


LDA 


#$7E 




0134 


C039 


B7 


01 


A0 




STA 


RVEC22 




0135 


C03C 


A7 


C0 






STA 


,u+ 




0136 


C03E 


EC 


81 






LDD 


,X++ 




0137 


C040 


ED 


CI 






STD 


,u++ 




0138 


C042 


8C 


CI 


26 




CMPX 


#LC126 




0139 


C045 


26 


F0 






BNE 


LC037 




0140 


C047 


8E 


C2 


9A 




LDX 


#DVEC22 




0141 


C04A 


BF 


01 


Al 




STX 


RVEC22+1 




0142 










**** INITIALIZE DISK BASIC'S USR VECTORS 




0143 


C04D 


8E 


09 


5F 




LDX 


#DUSRVC 




0144 


C050 


9F 


B0 






STX 


USRADR 




0145 


C052 


CE 


B4 


4A 




LDU 


#LB44A 




0146 


C055 


C6 


0A 






LDB 


#10 




0147 


C057 


EF 


81 




LC057 


STU 


,X++ 




0148 


C059 


5A 








DECB 






0149 


C05A 


26 


FB 






BNE 


LC057 




0150 


C05C 


8E 


D7 


AE 




LDX 


#DNMISV 




0151 


C05F 


BF 


01 


0A 




STX 


NMIVEC+1 




0152 


C062 


86 


7E 






LDA 


#$7E 




0153 


C064 


B7 


01 


09 




STA 


NMIVEC 




0154 


C067 


8E 


D7 


BC 




LDX 


#DIRQSV 




0155 


C06A 


BF 


01 


0D 




STX 


IRQVEC+1 




0156 


C06D 


86 


13 






LDA 


#19 




0157 


C06F 


B7 


09 


7A 




STA 


WFATVL 




0158 


C072 


7F 


08 


00 




CLR 


FATBL0 




0159 


C075 


7F 


08 


4A 




CLR 


FATBL1 




0160 


C078 


7F 


08 


94 




CLR 


FATBL2 




0161 


C07B 


7F 


08 


DE 




CLR 


FATBL3 




0162 


C07E 


8E 


09 


89 




LDX 


#DFLBUF 




0163 


C081 


BF 


09 


48 




STX 


RNBFAD 




0164 


C084 


30 


89 


01 00 




LEAX 


256, X 




0165 


C088 


BF 


09 


4A 




STX 


FCBADR 




0166 










* 








0167 


C08B 


30 


01 






LEAX 


$01, X 




0168 


C08D 


BF 


09 


28 




STX 


FCBV1 




0169 


C090 


6F 


00 






CLR 


FCBTYP.X 




0170 


C092 


30 


89 


01 19 




LEAX 


FCBLEN.X 




0171 


C096 


BF 


09 


2A 




STX 


FCBV1+2 




0172 


C099 


6F 


00 






CLR 


FCBTYP.X 




0173 


C09B 


30 


89 


01 19 




LEAX 


FCBLEN.X 




0174 










* 








0175 


C09F 


BF 


09 


2C 




STX 


FCBV1+4 




0176 


C0A2 


6F 


00 






CLR 


FCBTYP.X 




0177 


C0A4 


86 


02 






LDA 


#$02 




0178 


C0A6 


B7 


09 


5B 




STA 


FCBACT 




0179 


C0A9 


30 


89 


01 19 




LEAX 


FCBLEN.X 




0180 


C0AD 


IF 


10 






TFR 


X.D 




0181 


C0AF 


5D 








TSTB 






0182 


C0B0 


27 


01 






BEQ 


LC0B3 




0183 


C0B2 


4C 








INCA 






0184 


C0B3 


IF 


89 




LC0B3 


TFR 


A,B 




0185 


C0B5 


CB 


18 






ADDB 


#24 




0186 


C0B7 


D7 


19 






STB 


TXTTAB 




0187 


C0B9 


BD 


96 


EC 




JSR 


L96EC 




0188 


C0BC 


96 


BA 






LDA 


BEGGRP 




0189 


C0BE 


8B 


06 






ADDA 


#$06 




0190 


C0C0 


97 


B7 






STA 


ENDGRP 




0191 


C0C2 


8D 


19 






BSR 


LC0DD 




0192 


C0C4 


1C 


AF 






ANDCC#$AF 





DIRECTORY ENTRY NUMBER (0-71) 

NUMBER OF BYTES IN LAST SECTOR OF FILE 

UNUSED 

INPUT FILE ONLY: DATA LEFT FLAG: 0=DATA LEFT, $FF=NO DATA (EMPTY) 

NUMBER OF CHARACTERS LEFT IN BUFFER (INPUT FILE) 

NUMBER OF CHARS STORED IN BUFFER (OUTPUT FILE) 

OFFSET TO FCB DATA BUFFER (256 BYTES) 



DSKCON POINTER 

ADDRESS OF DSKCON VARIABLES 



POINT X TO START OF DISK RAM 

CLEAR A BYTE 

END OF DISK'S RAM? 

NO - KEEP CLEARING 

POINT X TO ROM IMAGE OF COMMAND INTERPRETATION TABLE 

POINT U TO RAM ADDRESS OF SAME 

10 BYTES PER TABLE 

MOVE (B) BYTES FROM (X) TO (U) 

SYNTAX ERROR ADDRESS 

* SET JUMP TABLE ADDRESSES OF THE USER COMMAND 

* INTERPRETATION TABLE TO POINT TO SYNTAX ERROR 
CLEAR BYTE OF USER TABLE (DOESN'T EXIST FLAG) 
SET NUMBER OF SECONDARY USER TOKENS TO ZERO 

* SAVE NEW 

* POINTERS TO EXBAS 

* COMMAND AND SECONDARY 

* COMMAND INTERPRETATION ROUTINES 

POINT U TO 1ST RAM VECTOR 

OP CODE OF JMP INSTRUCTION 

SET 1ST BYTE OF 'GET'7'PUT' RAM VECTOR TO 'JMP' 

SET 1ST BYTE OF RAM VECTOR TO 'JMP' 

GET RAM VECTOR FROM ROM 

STORE IT IN RAM 

COMPARE TO END OF ROM VALUES 

BRANCH IF NOT ALL VECTORS MOVED 

GET ROM VALUE OF 'GET'7'PUT' RAM VECTOR 

SAVE IT IN RAM 

POINT X TO START OF DISK BASIC USR VECTORS 

SAVE START ADDRESS IN USRADR 

POINT U TO ADDRESS OF 'FUNCTION CALL' ERROR 

10 USER VECTORS TO INITIALIZE 

SET USR VECTOR TO ' FC ' ERROR 

DECREMENT USR VECTOR COUNTER 

BRANCH IN NOT DONE WITH ALL 10 VECTORS 

GET ADDRESS OF NMI SERVICING ROUTINE 

SAVE IT IN NMI VECTOR 

OP CODE OF JMP 

MAKE THE NMI VECTOR A JMP 

GET ADDRESS OF DISK BASIC IRO SERVICING ROUTINE 

SAVE IT IN IRQVEC 

= INITIALIZE WRITE FAT 

■ TO DISK TRIGGER VALUE 

* INITIALIZE THE ACTIVE FILE COUNTER OF 

* EACH FAT TO ZERO. THIS WILL CAUSE THE FATS 

* TO THINK THERE ARE NO ACTIVE FILES 
= GET THE STARTING ADDRESS OF THE 

= RANDOM FILE BUFFER FREE AREA AND DAVE IT AS THE 
= START ADDRESS OF FREE RAM FOR RANDOM FILE BUFFERS 
SAVE 256 BYTES FOR RANDOM FILE BUFFERS INITIALLY 
SAVE START ADDRESS OF FCBS 

* ADD ONE AND SAVE THE STARTING 

* ADDRESS OF FCB1 

CLEAR THE FIRST BYTE OF FCB 1 (CLOSE FCB) 
POINT X TO FCB 2 

SAVE ITS STARTING ADDRESS IN FCB VECTOR TABLE 
CLEAR THE FIRST BYTE OF FCB 2 (CLOSE FCB) 

* POINT X TO SYSTEM FCB - THIS FCB WILL ONLY 

* BE USED TO COPY, LOAD, SAVE, MERGE, ETC 
SAVE ITS ADDRESS IN THE FCB VECTOR TABLE 
CLEAR THE FIRST BYTE OF SYSTEM FCB (CLOSE FCB) 

* SET THE NUMBER OF ACTIVE RESERVED 

* FILE BUFFERS TO 2 (1,2) 

POINT X TO ONE PAST THE END OF SYSTEM FCB 

SAVE THE ADDRESS IN ACCD 

ON AN EVEN 256 BYTE BOUNDARY? 

YES 

NO - ADD 256 TO ADDRESS 

COPY ACCA TO ACCB 

SAVE ENOUGH ROOM FOR 4 GRAPHICS PAGES (PCLEAR 4) 

SAVE NEW START OF BASIC ADDRESS 

INITIALIZE EXBAS VARIABLES S DO A NEW 

GET THE START OF CURRENT GRAPHICS PAGE 

ADD 1.5K (6 X 256 • ONE GRAPHICS PAGE) 

SAVE NEW END OF GRAPHICS PAGE 

GO INITIALIZE THE FLOPPY DISK CONTROLLER 

TURN ON IRO AND FIRO 



DISK BASIC UNRAVELLED II 



APPENDIX C 
DISASSEMBLY OF DISK BASIC 1.0 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/26/1999 WALTER K ZYDHEK 



0193 
0194 
0195 

0196 

0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 



C0C6 8E CI 25 

C0C9 BD B9 9C 

C0CC 8E C0 D4 

C0CF 9F 72 

C0D1 7E A0 E2 

C0D4 12 

C0D5 8D 06 

C0D7 BD Dl E5 

C0DA 7E 80 C0 

C0DD 7F 09 82 

C0E0 7F 09 85 

C0E3 7F 09 86 

C0E6 7F FF 40 

C0E9 86 D0 

C0EB B7 FF 48 

C0EE IE 88 

C0F0 IE 88 

C0F2 B6 FF 48 

C0F5 39 



C0F6 13 

C0F7 CI 7F 

C0F9 C2 20 

C0FB 06 

C0FC C2 01 

C0FE C2 36 



LDX #LC125 

JSR STRINOUT 

LDX #DKWMST 

STX RSTVEC 

JMP LA0E2 



NOP 
BSR 
JSR 
JMP 
CLR 
CLR 
CLR 
CLR 
LDA 
STA 
EXG 
EXG 
LDA 
RTS 



LC0DD 

LD1E5 

XBWMST 

NMIFLG 

RDYTMR 

DRGRAM 

DSKREG 

#$D0 

FDCREG 

A, A 

A, A 

FDCREG 



DISK BASIC COMMAND INTERP TABLES 



FCB 

FOB 
FOB 
FCB 
FOB 
FOB 



19 

LC17F 

LC220 

6 

LC201 

LC236 



RAM HOOKS FOR DISK BASIC 



C100 C4 26 C8 38 C8 43 LC100 FDB 

C106 CB 4A C5 8F C8 18 FDB 

C10C C8 IB CA 3B CA 4B FDB 

C112 8E 90 CC 5B C8 59 FDB 

C118 C6 B7 CA 36 C8 60 FDB 

CUE CD F6 C6 B7 C2 4D FDB 

C124 C9 90 FDB 



DVEC0,DVEC1,DVEC2 

DVEC3.DVEC4.DVEC5 

DVEC6,DVEC7,DVEC8 

XVEC9,DVEC10,DVEC11 

DVEC12,DVEC13,DVEC14 

DVEC15,DVEC12,DVEC17 

DVEC18 



DISK BASIC COPYRIGHT MESSAGE 



C126 44 49 53 4B 20 45 LC126 

C12C 58 54 45 4E 44 45 

C132 44 20 43 4F 4C 4F 

C138 52 20 42 41 53 49 

C13E 43 20 31 2E 30 

C143 0D 

C144 43 4F 50 59 52 49 

C14A 47 48 54 20 28 43 

C150 29 20 31 39 38 

C155 32 

C156 20 42 59 20 54 41 

C15C 4E 44 59 

C15F 0D 

C160 55 4E 44 45 52 20 

C166 4C 49 43 45 4E 53 

C16C 45 20 46 52 4F 4D 

C172 20 4D 49 43 52 4F 

C178 53 4F 46 54 

C17C 0D 0D 00 



'DISK EXTENDED COLOR BASIC 1.0' 



FCB 


CR 


FDB 


•COPYRIGHT (C) 


FCB 


CYEAR 


FCC 


' BY TANDY' 


FCB 


CR 


FCC 


•UNDER LICENSE 



FDB CR.CR.0 



DISK BASIC COMMAND DICTIONARY TABLE 



C17F 
C182 
C187 
C18C 
C191 
C195 
C199 
C19D 
C1A2 
C1A8 
C1AC 
C1B0 
C1B5 
C1BB 
C1C1 
C1C7 
C1CD 
C1D1 
C1D6 



44 49 
44 52 
46 49 
46 49 
4B 49 
4C 4F 
4C 53 
4D 45 
52 45 

52 53 

53 41 
57 52 
56 45 
55 4E 
44 53 

42 41 

43 4F 

44 53 
44 53 



D2 LC17F 

49 56 C5 

45 4C C4 

4C 45 D3 

4C CC 

41 C4 

45 D4 

52 47 C5 

4E 41 4D C5 

45 D4 

56 C5 

49 54 C5 

52 49 46 D9 
4C 4F 41 C4 
4B 49 4E C9 
43 4B 55 D0 

50 D9 

4B 49 A4 
4B 4F A4 



FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 



'DI' ,$80+'R' 
'DRIV ,$80+'E' 
•FIEL' ,$80+'D' 
•FILE' ,$80+'S' 
•KIL' ,$80+'L' 
'LOA' ,$80+'D' 
'LSE' ,$80+'T' 
'MERG' ,$80+'E' 
•RENAM' ,$80+' E' 
'RSE' ,$80+'T' 
•SAV ,$80+'E' 
'WRIT' ,$80+'E' 
'VERIF' ,$80+'Y' 
'UNLOA' ,$80+'D' 
'DSKIN' ,$80+T 
'BACKU' ,$80+'P' 
'COP' ,$80+'Y' 
•DSKI' ,$80+'$' 
•DSKO' ,$80+'$' 



DISK BASIC COMMAND JUMP TABLE 



C1DB CC A9 

C1DD CE C5 

C1DF D0 BC 

C1E1 Dl 5C 

C1E3 C6 EF 

C1E5 CA 48 

C1E7 Dl 02 

C1E9 CA 39 

C1EB D0 IB 

C1ED Dl 01 

C1EF C9 E0 

C1F1 D0 66 

C1F3 D7 4E 



FDB 


DIR 


FDB 


DRIVE 


FDB 


FIELD 


FDB 


FILES 


FDB 


KILL 


FDB 


LOAD 


FDB 


LSET 


FDB 


MERGE 


FDB 


RENAME 


FDB 


RSET 


FDB 


SAVE 


FDB 


WRITE 


FDB 


VERIFY 



POINT X TO DISK BASIC COPYRIGHT MESSAGE 
PRINT COPYRIGHT MESSAGE TO SCREEN 
GET DISK BASIC WARM START ADDRESS 
SAVE IT IN RESET VECTOR 
JUMP BACK TO BASIC 

WARM START INDICATOR 

INITIALIZE THE FLOPPY DISK CONTROLLER 

CLOSE FILES AND DO MORE INITIALIZATION 

JUMP TO EXBAS' WARM START 

RESET NMI FLAG 

RESET DRIVE NOT READY TIMER 

RESET RAM IMAGE OF DSKREG (MOTORS OFF) 

RESET DISK CONTROL REGISTER 

FORCE INTERRUPT COMMAND OF 1793 

SEND IT TO 1793 

* DELAY 

* DELAY SOME MORE 

GET 1793 STATUS (CLEAR REGISTER) 



19 DISK BASIC 1.0 COMMANDS 
DISK BASIC'S COMMAND DICTIONARY 
COMMAND JUMP TABLE 
6 DISK BASIC SECONDARY FUNCTIONS 
SECONDARY FUNCTION TABLE 
SECONDARY FUNCTION JUMP TABLE 



TOKEN # 


CE 




CF 




D0 




Dl 




D2 




D3 




D4 




D5 




D6 




D7 




D8 




D9 




DA 




DB 




DC 




DD 




DE 




DF 




E0 




COMMAND / TOKEN # 


DIR 7 CE 


DRIVE 7 CF 


FIELD 7 D0 


FILES 7 Dl 


KILL 7 


Di 


LOAD 7 


D3 


LSET 7 


D4 


MERGE 7 D5 


RENAME 


7 D6 


RSET 7 


D7 


SAVE 7 


1)3 


WRITE 7 D9 


VERIFY 


7 DA 



DISK BASIC UNRAVELLED II 



APPENDIX C 
DISASSEMBLY OF DISK BASIC 1.0 



ORIGIN:SPECTRAL ASSOC 
REVISED: 12/26/1999 WALTER K ZYDHEK 



0289 


C1F5 


D2 


33 




0290 


C1F7 


D5 


99 




0291 


C1F9 


D2 


62 




0292 


C1FB 


D3 


B9 




0293 


C1FD 


D4 


ED 




0294 


C1FF 


D5 


62 




0295 










0296 










0297 










0298 


C201 


43 


56 


CE 


0299 


C204 


46 


52 


45 C5 


0300 


C208 


4C 


4F 


C3 


0301 


C20B 


4C 


4F 


C6 


0302 


C20E 


4D 


4B 


4E A4 


0303 


C212 


41 


[13 




0304 










0305 










0306 










0307 


C214 


CD 


F4 




0308 


C216 


CE 


9C 




0309 


C218 


CE 


10 




0310 


C21A 


CE 


37 




0311 


C21C 


CE 


02 




0312 


C21E 


B2 


77 




0313 










0314 


C220 


81 


E0 




0315 


C222 


22 


08 




0316 


C224 


8E 


CI 


DB 


0317 


C227 


80 


CE 




0318 


C229 


7E 


AD 


D4 


0319 


C22C 


81 


E0 




0320 


C22E 


10 


23 


F0 45 


0321 


C232 


6E 


9F 


01 41 


0322 










0323 


C236 


CI 


4E 




0324 


C238 


23 


04 




0325 


C23A 


6E 


9F 


01 46 


0326 


C23E 


C0 


44 




0327 


C240 


34 


04 




0328 


C242 


BD 


B2 


62 


0329 


C245 


35 


04 




0330 


C247 


8E 


C2 


14 


0331 


C24A 


7E 


B2 


CE 


0332 










0333 










0334 


C24D 


35 


20 




0335 


C24F 


BD 


AD 


33 


0336 


C252 


BD 


Dl 


E5 


0337 


C255 


34 


24 




0338 


C257 


BD 


CA 


3B 


0339 


C25A 


35 


04 




0340 


C25C 


CI 


36 




0341 


C25E 


10 


25 


C6 8E 


0342 


C262 


32 


62 




0343 


C264 


BD 


A7 


E9 


0344 


C267 


BD 


A9 


74 


0345 


C26A 


0F 


6F 




0346 


C26C 


BD 


B9 


5C 


0347 


C26F 


BD 


B9 


AF 


0348 


C272 


8E 


C2 


42 


0349 


C275 


7E 


AC 


60 


0350 










0351 










0352 


C278 


42 


52 




0353 


C27A 


44 


46 




0354 


C27C 


4F 


42 




0355 


C27E 


57 


50 




0356 


C280 


46 


4E 




0357 


C282 


46 


53 




0358 


C284 


41 


45 




0359 


C286 


46 


4F 




0360 


C288 


53 


45 




0361 


C28A 


56 


46 




0362 


C28C 


45 


52 




0363 










0364 










0365 


C28E 


42 


41 


53 


0366 


C291 


20 


20 


20 


0367 


C294 


44 


41 


54 


0368 


C297 


42 


49 


4E 


0369 










0370 










0371 


C29A 


34 


11 




0372 


C29C 


AE 


63 




0373 


C29E 


8C 


97 


5F 


0374 


C2A1 


26 


04 




0375 


C2A3 


81 


23 




0376 


C2A5 


27 


02 




0377 


C2A7 


35 


91 




0378 










0379 










0380 


C2A9 


32 


65 




0381 


C2AB 


BD 


C7 


FE 


0382 


C2AE 


9F 


Fl 




0383 


C2B0 


6F 


88 


15 


0384 


C2B3 


6F 


88 


16 



FDB 


UNLOAD 


FDB 


DSKINI 


FDB 


BACKUP 


FDB 


COPY 


FDB 


DSKI 


FDB 


DSKO 



SECONDARY FUNCTION DICTIONARY TABLE 



FCC 


'CV ,$80+'N' 


FCC 


'FRE' ,$80+' E 


FCC 


'LO' ,$80+'C 


FCC 


'LO' ,$80+'F' 


FCC 


'MKN' ,$80+'$ 


FCC 


•A' ,$80+'S' 



DISK BASIC SECONDARY FUNCTION JUMP TABLE 



LC214 


FDB 


CVN 




FDB 


FREE 




FDB 


LOC 




FDB 


LOF 




FDB 


MKN$ 




FDB 


AS 


LC220 


CMPA 


#DHITOK 




BHI 


LC22C 




LDX 


#LC1DB 




SUBA 


#$CE 




JMP 


LADD4 


LC22C 


CMPA 


#DHITOK 




LBLS 


LB277 




JMP 


[COMVEC+33] 


*DISK BASIC SECONDARY COMMAND 


LC236 


CMPB 


$($A7-$80)*2 




BLS 


LC23E 




JMP 


[COMVEC+38] 


LC23E 


SUBB 


$($A2-$80)*2 




PSHS 


B 




JSR 


LB262 




PULS 


B 




LDX 


#LC214 




JMP 


LB2CE 


* ERROR DRIVER RAM VECTOR 


DVEC17 


PULS 


Y 




JSR 


LAD33 




JSR 


LD1E5 




PSHS 


Y,B 




JSR 


DVEC7 




PULS 


B 




CMPB 


#2*27 




LBCS 


XVEC17 




LEAS 


$02, S 




JSR 


LA7E9 




JSR 


LA974 




CLR 


DEVNUM 




JSR 


LB95C 




JSR 


LB9AF 




LDX 


#LC278-2*27 




JMP 


LAC60 


* DISK 


BASIC 


ERROR MESSAGES 


LC290 


FCC 


•BR' 




FCC 


'DF' 




FCC 


■OB' 




FCC 


HP 




FCC 


'FN' 




FCC 


'FS' 




FCC 


'AE' 




FCC 


'FO' 




FCC 


'SE' 




FCC 


VF 




FCC 


ER 


* DISK 


FILE EXTENSIONS 


BASEXT 


FCC 


•BAS' 


DEFEXT 


FCC 




DATEXT 


FCC 


'DAT' 


BINEXT 


FCC 


'BIN' 


* CLS RAM VECTOR 


DVEC22 


PSHS 


X,CC 




LDX 


$03, S 




CMPX 


#L975F 




BNE 


LC2A7 




CMPA 


#'#' 




BEQ 


LC2A9 


LC2A7 


PULS 


CC,X,PC 


* GET7PUT TO , 


A DIRECT7RANDOM ! 


LC2A9 


LEAS 


$05, S 




JSR 


LC7FE 




STX 


FCBTMP 




CLR 


FCBGET.X 




CLR 


FCBGET+1,X 



UNLOAD 7 DB 


DSKINI 7DC 


BACKUP 7 DD 


COPY 7 DE 


DSKI$ 7 DF 


DSKO$ 7 E0 


TOKEN # 


A2 


A3 


A4 


A5 


A6 


A7 


FUNCTION 7 TOKEN # 


CVN 7 A2 


FREE 7 A3 


LOC 7 A4 


LOF 7 A5 


MKN$ 7 A6 


AS 7 A7 



*COMPARE TO HIGHEST DISK BASIC TOKEN 
*AND BRANCH IF HIGHER 

POINT X TO DISK BASIC COMMAND JUMP TABLE 
SUBTRACT OUT LOWEST DISK BASIC COMMAND TOKEN 
JUMP TO BASIC'S COMMAND HANDLER 
COMPARE TO HIGHEST DISK BASIC TOKEN 
•SYNTAX' ERROR IF < DISK BASIC COMMAND TOKEN 
PROCESS A USER COMMAND TOKEN 
INTERPRETATION HANDLER 

♦COMPARE MODIFIED SECONDARY TOKEN TO 

"HIGHEST DISK BASIC TOKEN & BRANCH IF HIGHER 

JUMP TO USER SECONDARY COMMAND HANDLER 

♦SUBTRACT OUT THE SMALLEST SECONDARY 

*DISK TOKEN & SAVE MODIFIED TOKEN ON THE STACK 

SYNTAX CHECK FOR '(' AND EVALUATE EXPRESSION 

RESTORE MODIFIED TOKEN 

POINT X TO SECONDARY COMMAND JUMP TABLE 

JUMP TO BASIC'S SECONDARY COMMAND HANDLER 



PUT THE RETURN ADDRESS INTO Y 

RESET THE CONT FLAG, ETC 

INITIALIZE SOME DISK VARIABLES AND CLOSE FILES 

PUT RETURN ADDRESS AND ERROR NUMBER ON THE STACK 

CLOSE ALL FILES 

GET THE ERROR NUMBER BACK 

COMPARE TO THE LOWEST DISK ERROR NUMBER 

BRANCH TO EXBAS ERROR HANDLER IF NOT DISK ERROR NUMBER 

PURGE RETURN ADDRESS OFF THE STACK 

TURN OFF THE CASSETTE MOTOR 

DISABLE THE ANALOG MULTIPLEXER 

SET DEVICE NUMBER TO THE SCREEN 

SEND A CR TO THE SCREEN 

SEND A '?' TO THE SCREEN 

POINT X TO DISK BASIC'S ERROR TABLE 

JUMP TO BASIC'S ERROR HANDLER 



27 BAD RECORD 

28 DISK FULL 

29 OUT OF BUFFER SPACE 

30 WRITE PROTECTED 

31 BAD FILE NAME 

32 BAD FILE STRUCTURE 

33 FILE ALREADY EXISTS 

34 FIELD OVERFLOW 

35 SET TO NON-FIELDED STRING 

36 VERIFICATION ERROR 

37 WRITE OR INPUT PAST END OF RECORD 



BASIC FILE EXTENSION 

BLANK (DEFAULT) FILE EXTENSION 

DATA FILE EXTENSION 

BINARY FILE EXTENSION 



SAVE X REG AND STATUS 

LOAD X WITH CALLING ADDRESS 

COMING FROM EXBAS' GET7PUT? 

NO 

NUMBER SIGN (GET#, PUT#)? 

BRANCH IF GET OR PUT TO RANDOM FILE 

RESTORE X REG, STATUS AND RETURN 



PURGE RETURN ADDRESS AND REGISTERS OFF OF THE STACK 
EVALUATE DEVICE NUMBER S SET FCB POINTER 
SAVE FCB POINTER 

* RESET THE GET 

* DATA POINTER 



DISK BASIC UNRAVELLED II 
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0385 


C2B6 


6F 


88 


17 


0386 


C2B9 


6F 


88 


18 


0387 


C2BC 


6F 


06 




0388 


C2BE 


A6 


01 




0389 


C2C0 


97 


EB 




0390 


C2C2 


9D 


A5 




0391 


C2C4 


27 


0A 




0392 


C2C6 


BD 


B2 


6D 


0393 


C2C9 


BD 


B3 


E6 


0394 


C2CC 


9E 


Fl 




0395 


C2CE 


ED 


07 




0396 


C2D0 


BD 


C6 


58 


0397 


C2D3 


EC 


09 




0398 


C2D5 


AE 


0B 




0399 


C2D7 


34 


16 




0400 










0401 










0402 


C2D9 


30 


5E 




0403 


C2DB 


BD 


9F 


B5 


0404 


C2DE 


34 


60 




0405 


C2E0 


A6 


E0 




0406 


C2E2 


26 


09 




0407 


C2E4 


35 


10 




0408 


C2E6 


35 


04 




0409 










0410 










0411 










0412 


C2E8 


8C 


02 


64 


0413 


C2EB 


25 


05 




0414 


C2ED 


C6 


36 




0415 


C2EF 


7E 


AC 


46 


0416 


C2F2 


DE 


Fl 




0417 


C2F4 


AC 


4D 




0418 


C2F6 


10 


27 


00 


0419 


C2FA 


34 


14 




0420 


C2FC 


A6 


4F 




0421 


C2FE 


27 


06 




0422 


C300 


6F 


4F 




0423 


C302 


C6 


03 




0424 


C304 


8D 


33 




0425 










0426 


C306 


EC 


61 




0427 


C308 


BD 


C7 


54 


0428 


C30B 


34 


04 




0429 


C30D 


BD 


C7 


49 


0430 


C310 


50 






0431 


C311 


EB 


63 




0432 










0433 










0434 


C313 


5C 






0435 


C314 


E7 


44 




0436 


C316 


E6 


42 




0437 


C318 


BD 


C7 


25 


0438 


C31B 


33 


06 




0439 


C31D 


A6 


E4 




0440 


C31F 


4C 






0441 


C320 


30 


C4 




0442 


C322 


3A 






0443 


C323 


4A 






0444 


C324 


27 


37 




0445 


C326 


E7 


E4 




0446 


C328 


E6 


84 




0447 


C32A 


CI 


C0 




0448 


C32C 


25 


F2 




0449 










0450 










0451 


C32E 


E6 


E4 




0452 


C330 


0D 


D8 




0453 


C332 


26 


14 




0454 


C334 


C6 


2E 




0455 


C336 


7E 


AC 


46 


0456 


C339 


30 


C8 


19 


0457 










0458 










0459 


C33C 


D7 


EA 




0460 


C33E 


9F 


EE 




0461 


C340 


30 


C4 




0462 


C342 


BD 


C7 


33 


0463 


C345 


7E 


D5 


FF 


0464 










0465 










0466 


C348 


34 


12 




0467 


C34A 


BD 


C7 


8F 


0468 


C34D 


IF 


89 




0469 


C34F 


35 


42 




0470 


C351 


E7 


C4 




0471 


C353 


4A 






0472 


C354 


26 


F2 




0473 


C356 


34 


14 




0474 


C358 


BD 


C6 


Fl 


0475 


C35B 


35 


14 




0476 










0477 










0478 


C35D 


32 


61 




0479 


C35F 


DE 


Fl 




0480 


C361 


E7 


43 





CLR 


FCBPUT 


,X 


CLR 


FCBPUT+l.X 


CLR 


FCBPOS 


,x 


LDA 


FCBDRV 


,x 


STA 


DCDRV 




JSR 


GETCCH 




BEQ 


LC2D0 




JSR 


SYNCOMMA 


JSR 


LB3E6 




LDX 


FCBTMP 




STD 


FCBREC 


,x 


JSR 


LC658 




LDD 


FCBRLN 


,x 


LDX 


FCBBUF 


,x 


PSHS 


X,B,A 




LEAX 


-2,U 




JSR 


L9FB5 




PSHS 


U,Y 




LDA 


,S+ 




BNE 


LC2ED 




PULS 


X 




PULS 


B 





ILE 



-1) 



LC2E8 


CMPX 


#(TRKMAX-1) 




BLO 


LC2F2 


LC2ED 


LDB 


#2*27 




JMP 


LAC46 


LC2F2 


LDU 


FCBTMP 




CMPX 


FCBSOF.U 




LBEQ 


LC3B1 




PSHS 


X,B 




LDA 


FCBFLG.U 




BEQ 


LC306 




CLR 


FCBFLG.U 




LDB 


#$03 




BSR 


LC339 


* CONVERT THE 


SECTOR OFFSET 


LC306 


LDD 


$01, S 




JSR 


LC754 




PSHS 


B 




JSR 


LC749 




NEGB 




, 


ADDB 


$03, S 




INCB 






STB 


FCBSEC.U 




LDB 


FCBFGR.U 




JSR 


LC725 




LEAU 


FATCON.X 




LDA 


,s 




INCA 




LC320 


LEAX 

ABX 

DECA 


,u 




BEQ 


LC35D 




STB 


,S 




LDB 


,x 




CMPB 


#$C0 




BLO 


LC320 


* THE 


GRANULE 


BEING SEARCHEI 




LDB 


,s 




TST 


VD8 




BNE 


LC348 


LC334 


LDB 


#2*23 




JMP 


LAC46 



LEAX FCBCON.U 



= RESET THE PUT 

= DATA POINTER 

RESET PRINT POSITION COUNTER 

*GET THE FCB DRIVE NUMBER AND 

*SAVE IT IN DSKCON VARIABLE 

GET CURRENT INPUT CHARACTER FROM BASIC 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA 

EVALUATE EXPRESSION - RETURN IN ACCD 

POINT X TO FCB 

SAVE RECORD NUMBER IN FCB 

INCREMENT RECORD NUMBER 

* GET RANDOM FILE RECORD LENGTH AND RANDOM 

* BUFFER POINTER AND SAVE THEM ON THE STACK - 

* THESE ARE THE INITIAL VALUES OF A TEMPORARY 

* RECORD LENGTH COUNTER AND RANDOM BUFFER 

* POINTER WHICH ARE MAINTAINED ON THE STACK 
POINT X TO (RECORD NUMBER -1) 

MULT (UNSIGNED) RECORD LENGTH X (RECORD NUMBER 
SAVE PRODUCT ON THE STACK 

CHECK MS BYTE OF PRODUCT 

'BR' ERROR IF NOT ZERO (RECORD NUMBER TOO BIG) 

* PULL THE BOTTOM 3 PRODUCT BYTES OFF THE STACK; 

* TOP TWO IN X, BOTTOM IN ACCB; ACCB POINTS TO 

* THE FIRST BYTE OF THE SECTOR USED BY THIS RECORD, 

* (X) CONTAINS THE SECTOR OFFSET (IN WHICH SECTOR 

* FROM THE START THE BYTE IS LOCATED) 
612 SECTORS MAX IN A RANDOM FILE 
BRANCH IF RECORD LENGTH O.K. 

'BAD RECORD' ERROR 
JUMP TO ERROR HANDLER 
POINT U TO FCB 

* COMPARE SAVED SECTOR OFFSET TO THE CURRENT SECTOR OFFSET 

* BEING PROCESSED - DO NOT PROCESS A NEW SECTOR IF THEY ARE EQUAL 
SAVE BYTE AND SECTOR OFFSET TO RECORD START ON STACK 

* CHECK FCB GET/PUT FLAG AND 

* BRANCH IF IT WAS A GET 
FORCE GET/PUT TO 'PUT' 
DSKCON WRITE OP CODE 

GO WRITE A SECTOR - SAVE 'PUT' DATA ON DISK 
TO A GRANULE AND SECTOR NUMBER 

* GET THE NUMBER OF SECTORS TO THE START OF 

* THIS RECORD NUMBER AND CONVERT THEM TO A GRANULE OFFSET 
SAVE GRANULE OFFSET ON THE STACK 

MULTIPLY GRANULE NUMBER X 9 - CONVERT TO NUMBER OF SECTORS 

* NEGATE LS BYTE OF GRANULE OFFSET AND ADD THE 

* LS BYTE OF SECTOR OFFSET - ACCB = SECTOR 

* NUMBER (0-8) CORRESPONDING TO THE SECTOR NUMBER WITHIN A 

* GRANULE OF THE LAST SECTOR OF THE SECTOR OFFSET 
= ADD ONE - SECTORS SAVED IN THE FCB; START 

= AT 1 NOT - SAVE IT IN THE FCB 

GET FIRST GRANULE IN FILE 

POINT X TO FAT 

POINT U TO FAT DATA 

GET NUMBER OF GRANULES OFFSET TO RECORD 

ADD ONE (COMPENSATE FOR DECA BELOW) 

POINT X TO FAT DATA 

POINT X TO CORRECT GRANULE 

DECREMENT GRANULE COUNTER 

BRANCH IF CORRECT GRANULE FOUND 

SAVE GRANULE ADDRESS ON STACK 

GET NEXT GRANULE IN FILE 

LAST GRANULE IN FILE? 

NO - KEEP LOOKING 



GET OFFSET TO LAST GRANULE 

* CHECK GET/PUT FLAG 

* AND BRANCH IF PUT 

'INPUT PAST END OF FILE' ERROR 
JUMP TO ERROR HANDLER 
POINT X TO FCB DATA BUFFER 



READ/WRITE A SECTOR. ENTER WITH OP CODE IN ACCB, BUFFER PTR IN X 



LC33C 


STB 


DCOPC 




STX 


DCBPT 




LEAX 


,u 




JSR 


LC733 




JMP 


LD5FF 


* 'PUT' 


DATA 


INTO A GRANULE NOT 


LC348 


PSHS 


X,A 




JSR 


LC78F 




TFR 


A,B 




PULS 


A,U 




STB 


,u 




DECA 






BNE 


LC348 




PSHS 


X,B 




JSR 


LC6F1 




PULS 


B,X 


* WHEN 


CORRECT GRANULE IS FOUND 


LC35D 


LEAS 


$01, S 




LDU 


FCBTMP 




STB 


FCBCGR.U 



SAVE DSKCON OPERATION CODE VARIABLE 

SAVE DSKCON LOAD BUFFER VARIABLE 

POINT X TO FCB 

CONVERT FCB TRACK AND SECTOR TO DSKCON VARIABLES 

READ/WRITE A TRACK OR SECTOR 



SAVE GRANULE COUNTER AND POINTER TO LAST USED GRANULE 

FIND FIRST FREE GRANULE IN FAT 

SAVE FREE GRANULE NUMBER IN ACCB 

PULL LAST GRANULE POINTER AND COUNTER OFF OF STACK 

SAVE NEWLY FOUND GRANULE NUMBER IN ADDRESS OF LAST GRANULE 

DECREMENT GRANULE COUNTER 

GET ANOTHER GRANULE IF NOT DONE 

SAVE POINTER TO LAST GRANULE AND OFFSET 

WRITE FAT TO DISK 

RESTORE POINTER AND OFFSET 

FIND THE RIGHT SECTOR 

REMOVE GRAN NUMBER FROM STACK 

POINT U TO FCB 

SAVE CURRENT GRANULE IN FCB 
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0481 


C363 


86 


FF 




0482 


C365 


A7 


4D 




0483 


C367 


A6 


84 




0484 


C369 


81 


C0 




0485 


C36B 


25 


27 




0486 


C36D 


84 


3F 




0487 


C36F 


Al 


44 




0488 


C371 


24 


21 




0489 


C373 


96 


D8 




0490 


C375 


27 


BD 




0491 


C377 


A6 


44 




0492 


C379 


8A 


C0 




0493 


C37B 


A7 


84 




0494 


C37D 


BD 


C5 


7C 


0495 


C380 


AE 


49 




0496 


C382 


8C 


01 


00 


0497 


C385 


26 


08 




0498 


C387 


AC 


C8 


13 


0499 


C38A 


27 


08 




0500 


C38C 


86 


81 




0501 


C38E 


21 


4F 




0502 


C38F 


4F 






0503 


C390 


5F 






0504 


C391 


ED 


C8 


13 


0505 


C394 


C6 


02 




0506 


C396 


AE 


49 




0507 


C398 


8C 


01 


00 


0508 


C39B 


26 


0D 




0509 


C39D 


32 


67 




0510 


C39F 


AE 


4B 




0511 


C3A1 


96 


D8 




0512 


C3A3 


27 


02 




0513 


C3A5 


C6 


03 




0514 


> C3A7 


7E 


C3 


3C 


0515 


> C3AA 


BD 


C3 


39 


0516 


C3AD 


35 


14 




0517 










0518 


C3AF 


AF 


4D 




0519 


C3B1 


34 


04 




0520 


C3B3 


BD 


C7 


25 


0521 


C3B6 


30 


06 




0522 


C3B8 


E6 


43 




0523 


C3BA 


3A 






0524 


C3BB 


A6 


84 




0525 


C3BD 


81 


C0 




0526 


C3BF 


25 


24 




0527 


C3C1 


84 


3F 




0528 


C3C3 


Al 


44 




0529 


C3C5 


26 


IE 




0530 


C3C7 


EC 


C8 


13 


0531 


C3CA 


84 


7F 




0532 


C3CC 


34 


06 




0533 


C3CE 


4F 






0534 


C3CF 


E6 


62 




0535 


C3D1 


E3 


63 




0536 


C3D3 


10 


A3 


El 


0537 


C3D6 


23 


0D 




0538 


C3D8 


0D 


D8 




0539 


C3DA 


10 


27 


FF 56 


0540 










0541 










0542 










0543 


C3DE 


84 


01 




0544 


C3E0 


8A 


80 




0545 










0546 


C3E2 


ED 


C8 


13 


0547 


C3E5 


35 


04 




0548 


C3E7 


30 


C8 


19 


0549 


C3EA 


3A 






0550 


C3EB 


EE 


62 




0551 


C3ED 


34 


04 




0552 


C3EF 


86 


FF 




0553 










0554 


C3F1 


E3 


61 




0555 










0556 


C3F3 


24 


07 




0557 


C3F5 


ED 


61 




0558 


C3F7 


35 


04 




0559 


C3F9 


50 






0560 










0561 


C3FA 


20 


08 




0562 










0563 










0564 










0565 


C3FC 


E6 


62 




0566 


C3FE 


6F 


61 




0567 


C400 


6F 


62 




0568 


C402 


32 


61 




0569 


C404 


96 


D8 




0570 


C406 


27 


02 




0571 


C408 


IE 


13 




0572 


C40A 


BD 


A5 


9A 


0573 


C40D 


EF 


62 




0574 










0575 










0576 













LDA 


#$FF 




STA 


FCBSOF.U 




LDA 


,x 




CMPA 


#$C0 




BLO 


LC394 




ANDA 


#$3F 




CMPA 


FCBSEC.U 




BHS 


LC394 




LDA 


VD8 




BEQ 


LC334 




LDA 


FCBSEC.U 




ORA 


#$C0 




STA 


,x 




JSR 


LC57C 




LDX 


FCBRLN.U 




CMPX 


#SECLEN 




BNE 


LC38F 




CMPX 


FCBLST.U 




BEQ 


LC394 




LDA 


#$81 


LC38E 


BRN 


LC3DF 


LC38F 


CLRA 

CLRB 






STD 


FCBLST.U 


LC394 


LDB 


#$02 




LDX 


FCBRLN.U 




CMPX 


#SECLEN 




BNE 


LC3AA 




LEAS 


$07, S 




LDX 


FCBBUF.U 




LDA 


VD8 




BEQ 


LC3A7 




LDB 


#$03 


LC3A7 


JMP 


LC33C 


LC3AA 


JSR 


LC339 




PULS 


B.X 




STX 


FCBSOF.U 


LC3B1 


PSHS 


B 




JSR 


LC725 




LEAX 


FATCON.X 




LDB 


FCBCGR.U 




ABX 






LDA 


,x 




CMPA 


#$C0 




BLO 


LC3E5 




ANDA 


#$3F 




CMPA 


FCBSEC.U 




BNE 


LC3E5 




LDD 


FCBLST.U 




ANDA 


#$7F 




PSHS 


B.A 




CLRA 






LDB 


$02, S 




ADDD 


$03, S 




CMPD 


,s++ 




BLS 


LC3E5 




TST 


VD8 




LBEQ 


LC334 


* IF LAST USED SECTOR, 1 


* IF DATA IS 1 


3EING 'PUT 




ANDA 


#$01 




ORA 


#$80 




STD 


FCBLST.U 


LC3E5 


PULS 


B 




LEAX 


FCBCON.U 




ABX 






LDU 


$02, S 




PSHS 


B 




LDA 


#-1 



*SET FCBSOF.U TO ILLEGAL SECTOR OFFSET WHICH WILL 

*FORCE NEW SECTOR DATA TO BE READ IN 

GET CURRENT GRANULE 

IS IT THE LAST GRANULE? 

NO 

MASK OFF LAST GRANULE FLAG BITS 

* COMPARE CALCULATED SECTOR TO CURRENT SECTOR IN FCB 

* AND BRANCH IF CALCULATED SECTOR IS > LAST SECTOR IN FILE 
= CHECK GET/PUT FLAG: IF 'GET' THEN 'INPUT 

= PAST END OF FILE' ERROR 

* GET CURRENT SECTOR NUMBER FROM FCB, 

* OR IN THE LAST GRANULE FLAG BITS 

* AND SAVE IN FAT 

WRITE FAT TO DISK IF NECESSARY 

* GET RECORD LENGTH AND CHECK TO 

* SEE IF IT IS SECLEN (EXACTLY ONE SECTOR) 
BRANCH IF IT IS NOT EXACTLY ONE SECTOR 

=BRANCH IF THE NUMBER OF BYTES IN THE LAST SECTOR 

•IS SET TO ONE SECTOR (SECLEN) 

*SET THE PRESAVED FLAG (BIT15) AND FORCE 

*THE NUMBER OF BYTES IN LAST SECTOR TO 256 

SET THE NUMBER OF BYTES IN LAST SECTOR TO ZERO 

CLEAR LS BYTE OF ACCD 

SAVE THE NUMBER OF BYTES IN LAST SECTOR 

DSKCON READ OP CODE 

* GET RECORD LENGTH AND COMPARE 

* IT TO SECLEN - EXACTLY ONE SECTOR 
BRANCH IF NOT EXACTLY ONE SECTOR LONG 
CLEAN UP STACK 

POINT X TO START OF RANDOM FILE BUFFER 

* CHECK GET/PUT FLAG AND 

* BRANCH IF GET 
DSKCON WRITE OP CODE 
READ/WRITE A SECTOR 

READ A SECTOR INTO FCB DATA BUFFER 

* GET BACK THE BYTE OFFSET TO RECORD: X = NUMBER OF 

* SECTORS; ACCB = BYTE POINTER IN SECTOR 
SAVE SECTOR OFFSET IN FCB 

SAVE BYTE OFFSET ON STACK 

POINT X TO FILE ALLOCATION TABLE 

MOVE X TO FAT DATA 

GET CURRENT GRANULE NUMBER 

POINT X TO PROPER GRANULE IN FAT 

* GET CURRENT GRANULE AND CHECK TO 

* SEE IF IT IS LAST GRANULE 

BRANCH IF THIS GRANULE IS < LAST GRANULE 
MASK OFF LAST GRANULE FLAG BITS 

* COMPARE LAST SECTOR USED IN GRANULE TO 

* CALCULATED SECTOR; BRANCH IF NOT EQUAL 
GET NUMBER OF BYTES IN LAST SECTOR 

MASK OFF PRESAVED FLAG (BIT 15) 

SAVE NUMBER OF BYTES IN LAST SECTOR ON STACK 

* LOAD ACCB WITH THE BYTE OFFSET TO CURRENT 

* RECORD AND ADD THE REMAINING RECORD LENGTH 

* TO IT - ACCD = END OF RECORD OFFSET 

=COMPARE THE END OF RECORD OFFSET TO THE NUMBER OF 
=BYTES USED IN THE LAST SECTOR 

* CHECK GET/PUT FLAG AND BRANCH IF 'GET' 

* TO 'INPUT PAST END OF FILE' ERROR 



CALCULATE HOW MANY BYTES ARE USED 
' PASTH THE CURRENT END OF FILE 



ADDD $01, S 

BHS LC3FC 

STD $01, S 

PULS B 
NEGB 

BRA LC404 



* SET PRE-SAVED FLAG BIT - ALL PUT RECORDS ARE 

* WRITTEN TO DISK BEFORE LEAVING 'PUT' 
SAVE NUMBER OF BYTES USED IN LAST SECTOR 
PULL BYTE OFFSET OFF OF THE STACK 
POINT X TO FCB DATA BUFFER 

MOVE X TO START OF RECORD 

POINT U TO CURRENT POSITION IN RANDOM FILE BUFFER 

SAVE BYTE OFFSET ON STACK 

* CONVERT ACCD INTO A NEGATIVE 2 BYTE NUMBER 

* REPRESENTING THE REMAINING UNUSED BYTES IN THE SECTOR 

* ADD TEMPORARY RECORD LENGTH COUNTER (SUBTRACT 

* REMAINING BYTES FROM TEMPORARY RECORD LENGTH) 

BRANCH IF THERE ARE ENOUGH UNUSED BYTES TO FINISH THE RECORD 
SAVE NEW TEMPORARY RECORD LENGTH COUNTER 
RESTORE BYTE COUNTER 

* NEGATE IT - ACCB = THE NUMBER OF BYTES 

* AVAILABLE TO A RECORD IN THIS SECTOR 
MOVE THE DATA 



BRANCH HERE IF REMAINING RECORD LENGTH WILL FIT IN 



* WHAT 


'S LEFT 


OF THI 


LC3FC 


LDB 


$02, S 




CLR 


$01, S 




CLR 


$02, S 




LEAS 


$01, S 


LC404 


LDA 


VD8 




BEQ 


LC40A 




EXG 


X,U 


LC40A 


JSR 


LA59A 




STU 


$02, S 



GET REMAINING RECORD LENGTH 

* CLEAR THE TEMPORARY RECORD LENGTH 

* COUNTER ON THE STACK 
PURGE BYTE OFFSET FROM STACK 

* CHECK GET/PUT FLAG AND 

* BRANCH IF GET 

SWAP SOURCE AND DESTINATION POINTERS 

TRANSFER DATA FROM SOURCE TO DESTINATION BUFFERS 

SAVE NEW TEMP RECORD POINTER ON THE STACK (GET) 



MOVE DATA FROM FCB DATA BUFFER TO THE RANDOM FILE BUFFER 
OR FROM RANDOM FILE BUFFER TO FCB DATA BUFFER IF 'PUT' 



'GET' 
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0577 


C40F 


DE 


Fl 




0578 


C411 


96 


D8 




0579 


C413 


27 


04 




0580 


C415 


A7 


4F 




0581 


C417 


AF 


62 




0582 


C419 


AE 


4D 




0583 


C41B 


30 


01 




0584 


C41D 


5F 






0585 


C41E 


EE 


E4 




0586 


C420 


10 


26 


FE C4 


0587 


C424 


35 


96 




0588 










0589 










0590 










0591 


C426 


32 


62 




0592 


C428 


BD 


Bl 


56 


0593 


C42B 


BD 


B6 


A4 


0594 


C42E 


34 


04 




0595 


C430 


BD 


A5 


A2 


0596 


C433 


5D 






0597 


C434 


10 


2F 


El CB 


0598 


C438 


35 


02 




0599 


C43A 


34 


06 




0600 


C43C 


0F 


6F 




0601 


C43E 


BD 


B2 


6D 


0602 


C441 


8E 


C2 


94 


0603 


C444 


BD 


C8 


8A 


0604 


C447 


CC 


01 


FF 


0605 


C44A 


FD 


09 


57 


0606 


C44D 


8E 


01 


00 


0607 


C450 


9D 


A5 




0608 


C452 


27 


08 




0609 


C454 


BD 


B2 


6D 


0610 


C457 


BD 


B3 


E6 


0611 


C45A 


9E 


52 




0612 


C45C 


BF 


09 


7C 


0613 


C45F 


10 


27 


EF E7 


0614 


C463 


BD 


A5 


C7 


0615 


C466 


35 


06 




0616 










0617 










0618 


C468 


34 


02 




0619 


C46A 


BD 


C7 


19 


0620 


C46D 


10 


26 


El AB 


0621 


C471 


9F 


Fl 




0622 


C473 


BD 


C7 


6D 


0623 


C476 


BD 


C6 


5F 


0624 


C479 


35 


04 




0625 


C47B 


86 


10 




0626 


C47D 


34 


02 




0627 


C47F 


CI 


49 




0628 


C481 


26 


IF 




0629 










0630 










0631 


C483 


BD 


C6 


B8 


0632 


C486 


BD 


C7 


D7 


0633 


C489 


BE 


09 


74 


0634 


C48C 


EC 


0B 




0635 


C48E 


FD 


09 


57 


0636 


C491 


8D 


6D 




0637 


C493 


BD 


C5 


FA 


0638 


C496 


BD 


C7 


25 


0639 


C499 


6C 


00 




0640 


C49B 


9E 


Fl 




0641 


C49D 


35 


02 




0642 


C49F 


A7 


00 




0643 


C4A1 


39 






0644 


C4A2 


68 


E4 




0645 


C4A4 


CI 


4F 




0646 


C4A6 


26 


1A 




0647 










0648 










0649 


C4A8 


7D 


09 


73 


0650 


C4AB 


27 


0F 




0651 


C4AD 


BD 


C6 


CF 


0652 


C4B0 


B6 


09 


73 


0653 


C4B3 


B7 


09 


77 


0654 


C4B6 


BE 


09 


74 


0655 


C4B9 


BF 


09 


78 


0656 










0657 


C4BC 


8D 


7C 




0658 


C4BE 


8D 


4B 




0659 


C4C0 


20 


D4 




0660 


C4C2 


CI 


52 




0661 


C4C4 


27 


06 




0662 


C4C6 


CI 


44 




0663 


C4C8 


10 


26 


El 4A 


0664 










0665 










0666 


C4CC 


68 


E4 




0667 


C4CE 


FC 


09 


48 


0668 


C4D1 


34 


06 




0669 


C4D3 


F3 


09 


7C 


0670 


C4D6 


25 


06 




0671 


C4D8 


10 


B3 


09 4A 


0672 


C4DC 


23 


05 





LDU 


FCBTMP 


LDA 


VD8 


BEQ 


LC419 


STA 


FCBFLG.U 


STX 


$02, S 


LDX 


FCBSOF.U 


LEAX 


$01, X 


CLRB 




LDU 


,s 


LBNE 


LC2E8 


PULS 


A,B,X,PC 



OPEN RAM HOOK 



LEAS 


$02, S 


JSR 


LB156 


JSR 


LB6A4 


PSHS 


B 


JSR 


LA5A2 


TSTB 




LBLE 


LA603 


PULS 


A 


PSHS 


B,A 


CLR 


DEVNUM 


JSR 


SYNCOMMA 


LDX 


#DATEXT 


JSR 


LC88A 


LDD 


#$01FF 


STD 


DFLTVP 


LDX 


#SECLEN 


JSR 


GETCCH 


BEQ 


LC45C 


JSR 


SYNCOMMA 


JSR 


LB3E6 


LDX 


FPA0+2 


STX 


DFFLEN 


LBEQ 


LB44A 


JSR 


LA5C7 


PULS 


A,B 


ISK FILE FOR RI 


PSHS 


A 


JSR 


LC719 


LBNE 


LA61C 


STX 


FCBTMP 


JSR 


LC76D 


JSR 


LC65F 


PULS 


B 


LDA 


#INPFIL 


PSHS 


A 


CMPB 


# I 



BNE LC4A2 



OPEN A SEQUENTIAL FILE FOR INPUT 



JSR 


LC6B8 


JSR 


LC7D7 


LDX 


V974 


LDD 


DIRTYP.X 


STD 


DFLTYP 


BSR 


LC500 


JSR 


LC5FA 


JSR 


LC725 


INC 


FAT0.X 


LDX 


FCBTMP 


PULS 


A 


STA 


FCBTYP.X 


RTS 




ASL 


,S 


CMPB 


#'0' 


BNE 


LC4C2 


SEQUENTIAL Fl I 


TST 


V973 


BEQ 


LC4BC 


JSR 


LC6CF 


LDA 


V973 


STA 


V977 


LDX 


V974 


STX 


V978 


BSR 


LC53A 


BSR 


LC50B 


BRA 


LC496 


CMPB 


#'R' 


BEQ 


LC4CC 


CMPB 


#'D' 


LBNE 


LA616 


RANDOM7DIRECT 


ASL 


,s 


LDD 


RNBFAD 


PSHS 


B,A 


ADDD 


DFFLEN 


BLO 


LC4DE 


CMPD 


FCBADR 


BLS 


LC4E3 



POINT U TO FCB 

* CHECK GET/PUT FLAG AND 

* BRANCH IF GET 

SAVE 'PUT' FLAG IN THE FCB 

SAVE NEW TEMPORARY RECORD POINTER ON STACK (PUT) 

* GET SECTOR OFFSET COUNTER AND 

* ADD ONE TO IT 
SET BYTE OFFSET = 

* CHECK THE LENGTH OF THE TEMPORARY RECORD LENGTH 

* COUNTER AND KEEP MOVING DATA IF <> 

* PULL TEMPORARY RECORD LENGTH AND 

* BUFFER ADDRESS OFF STACK AND RETURN 



PULL RETURN ADDRESS OFF OF THE STACK 

EVALUATE AN EXPRESSION 

*GET MODE(I,0,R) - FIRST BYTE OF STRING EXPRESSION 

*AND SAVE IT ON STACK 

GET DEVICE NUMBER 

SET FLAGS 

BRANCH IF NOT A DISK FILE 

GET MODE 

SAVE MODE AND DEVICE NUMBER (FILE NUMBER) 

SET DEVICE NUMBER TO SCREEN 

SYNTAX CHECK FOR COMMA 

POINT TO 'DAT' FOR EXTENSION 

GET FILENAME FROM BASIC 

DEFAULT DISK FILE TYPE AND ASCII FLAG 

SAVE DEFAULT VALUES: DATA, ASCII 

DEFAULT RECORD LENGTH - 1 PAGE 

GET CHAR FROM BASIC 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA 

EVALUATE EXPRESSION 

GET EVALUATED EXPRESSION 

RECORD LENGTH 

IF = 0, THEN 'ILLEGAL FUNCTION CALL' 

ERROR IF ANY FURTHER CHARACTERS ON LINE 

GET MODE AND FILE NUMBER 



SAVE MODE ON STACK 

POINT X TO FCB FOR THIS FILE 

'FILE ALREADY OPEN' ERROR IF FILE OPEN 

SAVE FILE BUFFER POINTER 

MAKE SURE FILE ALLOC TABLE IS VALID 

SCAN DIRECTORY FOR ' FILENAME. EXT' 

GET MODE 

INPUT TYPE FILE 

SAVE FILE TYPE ON STACK 

INPUT MODE? 

BRANCH IF NOT 



CHECK TO SEE IF DIRECTORY MATCH IS FOUND 

CHECK TO SEE IF FILE ALREADY OPEN 

GET RAM DIRECTORY BUFFER 

GET FILE TYPE AND ASCII FLAG 

SAVE IN RAM IMAGE 

INITIALIZE FILE BUFFER CONTROL BLOCK 

GO FILL DATA BUFFER 

POINT X TO PROPER FILE ALLOCATION TABLE 

ADD ONE TO FAT ACTIVE FILE COUNTER 

GET FILE BUFFER POINTER 

GET FILE TYPE 

SAVE IT IN FCB 



SET FILE TYPE TO OUTPUT 
FILE MODE = OUTPUT? 
BRANCH IF NOT 



DOES FILE EXIST ON DIRECTORY? 
BRANCH IF NOT 
KILL THE OLD FILE 

* GET DIRECTORY SECTOR NUMBER OF OLD FILE AND 

* SAVE IT AS FIRST FREE DIRECTORY ENTRY 
=GET RAM DIRECTORY IMAGE OF OLD FILE AND 
=SAVE IT AS FIRST FREE DIRECTORY ENTRY 

SET UP NEW DIRECTORY ENTRY ON DISK 

INITIALIZE FILE BUFFER 

FLAG AND MAP FCB AS BEING USED 

FILE MODE = R (RANDOM)? 

BRANCH IF SO 

FILE MODE = D (DIRECT)? 

•BAD FILE MODE' ERROR IF NOT 



SET FILE TYPE TO DIRECT 

* GET ADDRESS OF RANDOM FILE BUFFER AREA 

* AND SAVE IT ON THE STACK 
ADD THE RECORD LENGTH 

'OB' ERROR IF SUM > $FFFF 
IS IT > THAN FCB DATA AREA? 
BRANCH IF NOT 
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0673 


C4DE 


C6 


3A 




0674 


C4E0 


7E 


AC 


46 


0675 


C4E3 


34 


06 




0676 


C4E5 


7D 


09 


73 


0677 


C4E8 


26 


02 




0678 


C4EA 


8D 


4E 




0679 


C4EC 


8D 


12 




0680 


C4EE 


63 


0D 




0681 










0682 


C4F0 


6C 


08 




0683 


C4F2 


35 


46 




0684 


C4F4 


FD 


09 


48 


0685 


C4F7 


EF 


0B 




0686 


C4F9 


FE 


09 


7C 


0687 


C4FC 


EF 


09 




0688 


C4FE 


20 


96 




0689 










0690 










0691 


C500 


8D 


09 




0692 


C502 


FE 


09 


74 


0693 


C505 


EE 


4E 




0694 


C507 


EF 


88 


13 


0695 


C50A 


39 






0696 










0697 


C50B 


9E 


Fl 




0698 


C50D 


C6 


19 




0699 


C50F 


6F 


80 




0700 


C511 


5A 






0701 


C512 


26 


FB 




0702 


C514 


9E 


Fl 




0703 


C516 


96 


EB 




0704 


C518 


A7 


01 




0705 


C51A 


B6 


09 


76 


0706 


C51D 


A7 


02 




0707 


C51F 


A7 


03 




0708 


C521 


F6 


09 


73 


0709 


C524 


C0 


03 




0710 


C526 


58 






0711 


C527 


58 






0712 


C528 


58 






0713 


C529 


34 


04 




0714 


C52B 


FC 


09 


74 


0715 


C52E 


83 


06 


00 


0716 


C531 


86 


08 




0717 


C533 


3D 






0718 


C534 


AB 


E0 




0719 


C536 


A7 


88 


12 


0720 


C539 


39 






0721 










0722 










0723 


C53A 


C6 


38 




0724 


C53C 


B6 


09 


77 


0725 


C53F 


10 


27 


E7 03 


0726 


C543 


B7 


09 


73 


0727 


C546 


97 


ED 




0728 


C548 


C6 


02 




0729 


C54A 


D7 


EA 




0730 


C54C 


BD 


D5 


FF 


0731 


C54F 


BE 


09 


78 


0732 


C552 


BF 


09 


74 


0733 


C555 


33 


84 




0734 


C557 


C6 


20 




0735 


C559 


6F 


80 




0736 


C55B 


5A 






0737 


C55C 


26 


FB 




0738 


C55E 


8E 


09 


4C 


0739 


C561 


C6 


0B 




0740 


C563 


BD 


A5 


9A 


0741 


C566 


FC 


09 


57 


0742 


C569 


ED 


40 




0743 


C56B 


C6 


21 




0744 


C56D 


BD 


C7 


8F 


0745 


C570 


B7 


09 


76 


0746 


C573 


A7 


42 




0747 


C575 


C6 


03 




0748 


C577 


D7 


EA 




0749 


C579 


BD 


D5 


FF 


0750 


C57C 


34 


56 




0751 


C57E 


BD 


C7 


25 


0752 


C581 


6C 


01 




0753 


C583 


A6 


01 




0754 


C585 


Bl 


09 


7A 


0755 










0756 


C588 


25 


03 




0757 


C58A 


BD 


C6 


Fl 


0758 


C58D 


35 


D6 




0759 










0760 










0761 


C58F 


96 


6F 




0762 


C591 


10 


2F 


C7 5C 


0763 


C595 


32 


62 




0764 


C597 


34 


14 




0765 


C599 


0F 


70 




0766 


C59B 


8E 


09 


26 


0767 


C59E 


D6 


6F 




0768 


C5A0 


58 







LC4DE 


LDB 


#2*29 




JMP 


LAC46 


LC4E3 


PSHS 


B,A 




TST 


V973 




BNE 


LC4EC 




BSR 


LC53A 


LC4EC 


BSR 


LC500 




COM 


FCBSOF.X 




INC 


FCBREC+l.X 




PULS 


A,B,U 




STD 


RNBFAD 




STU 


FCBBUF.X 




LDU 


DFFLEN 




STU 


FCBRLN.X 




BRA 


LC496 


* INITIALIZE 


FCB DATA FOR INPUT 


LC500 


BSR 


LC50B 




LDU 


V974 




LDU 


DIRLST.U 




STU 


FCBLST.X 




RTS 




* INITIALIZE 


FILE CONTROL BLOCK 


LC50B 


LDX 


FCBTMP 




LDB 


#FCBCON 


LC50F 


CLR 

DECB 


,x+ 




BNE 


LC50F 




LDX 


FCBTMP 




LDA 


DCDRV 




STA 


FCBDRV.X 




LDA 


V976 




STA 


FCBFGR.X 




STA 


FCBCGR.X 




LDB 


V973 




SUBB 


#$03 




AS LB 






AS LB 






AS LB 






PSHS 


B 




LDD 


V974 




SUBD 


#DBUF0 




LDA 


#$08 




MUL 






ADDA 


,s+ 




STA 


FCBDIR.X 




RTS 




* SET 


UP DIRECTORY AND UPDATE f. 




LDB 


#28*2 




LDA 


V977 




LBEQ 


LAC46 




STA 


V973 




STA 


DSEC 




LDB 


#$02 




STB 


DCOPC 




JSR 


LD5FF 




LDX 


V978 




STX 


V974 




LEAU 


,x 




LDB 


#DIRLEN 


LC559 


CLR 

DECB 


,x+ 




BNE 


LC559 




LDX 


#DNAMBF 




LDB 


#11 




JSR 


LA59A 




LDD 


DFLTYP 




STD 


,u 




LDB 


#33 




JSR 


LC78F 




STA 


V976 




STA 


$02, U 




LDB 


#$03 




STB 


DCOPC 




JSR 


LD5FF 


LC57C 


PSHS 


U,X,B,A 




JSR 


LC725 




INC 


FAT1.X 




LDA 


FAT1.X 




CMPA 


WFATVL 




BLO 


LC58D 




JSR 


LC6F1 


LC58D 


PULS 


A,B,X,U,PC 


* CONSOLE IN 


RAM VECTOR 


DVEC4 


LDA 


DEVNUM 




LBLE 


XVEC4 




LEAS 


$02, S 


LC597 


PSHS 


X,B 




CLR 


CINBFL 




LDX 


#FCBVl-2 




LDB 


DEVNUM 




ASLB 





'OUT OF BUFFER SPACE' ERROR 

JUMP TO ERROR HANDLER 

SAVE END OF RANDOM BUFFER ON STACK 

DID THIS FILE EXIST 

BRANCH IF SO 

SET UP NEW FILE IN DIRECTORY 

INITIALIZE FILE BUFFER 

* SET FCBSOF.X TO $FF (ILLEGAL SECTOR OFFSET) WHICH WILL 

* FORCE NEW SECTOR DATA TO BE READ IN DURING GET/PUT 
INITIALIZE RECORD NUMBER = 1 

U = START OF RANDOM FILE BUFFER AREA, ACCD = END 
SAVE NEW START OF RANDOM FILE BUFFER AREA 
SAVE BUFFER START IN FCB 

* GET RANDOM FILE RECORD LENGTH 

* AND SAVE IT IN FCB 

SET FAT FLAG, SAVE FILE TYPE IN FCB 



INITIALIZE FCB 

GET RAM DIRECTORY IMAGE 

*GET NUMBER OF BYTES IN LAST SECTOR OF FILE 

*SAVE IT IN FCB 



GET CURRENT FILE BUFFER 

CLEAR FCB CONTROL BYTES 

CLEAR A BYTE 

DECREMENT COUNTER 

BRANCH IF NOT DONE 

GET CURRENT FILE BUFFER ADDRESS BACK 

*GET CURRENT DRIVE NUMBER AND 

*SAVE IT IN FCB 

=GET FIRST GRANULE - 

=SAVE IT AS THE STARTING GRANULE NUMBER AND 

=SAVE IT AS CURRENT GRANULE NUMBER 

GET DIRECTORY SECTOR NUMBER 

SUBTRACT 3 - DIRECTORY SECTORS START AT 3 

* MULTIPLY SECTORS 

* BY 8 (8 DIRECTORY 

* ENTRIES PER SECTOR) 
SAVE SECTOR OFFSET 

GET RAM DIRECTORY IMAGE 

SUBTRACT RAM OFFSET 

8 DIRECTORY ENTRIES/SECTOR 

NOW ACCA CONTAINS 0-7 

ACCA CONTAINS DIRECTORY ENTRY (0-71) 

SAVE DIRECTORY ENTRY NUMBER 



FILE ALLOCATION TABLE ENTRY IN FIRST UNUSED SECTOR 
'DISK FULL' ERROR 

GET SECTOR NUMBER OF FIRST EMPTY DIRECTORY ENTRY 
'DISK FULL' ERROR IF NO EMPTY DIRECTORY ENTRIES 
SAVE SECTOR NUMBER OF FIRST EMPTY DIRECTORY ENTRY 
SAVE SECTOR NUMBER IN DSKCON REGISTER 
READ OP CODE 
SAVE IN DSKCON REGISTER 
READ SECTOR 

* GET ADDRESS OF RAM IMAGE OF UNUSED DIRECTORY 

* ENTRY AND SAVE AS CURRENT USED RAM IMAGE 
(TFR X,U) POINT U TO DIRECTORY RAM IMAGE 
SET COUNTER TO CLEAR 32 BYTES (DIRECTORY ENTRY) 
CLEAR BYTE 
DECREMENT COUNTER 
CONTINUE IF NOT DONE 

POINT TO FILENAME AND EXTENSION RAM IMAGE 
11 BYTES IN FILENAME AND EXTENSION 
MOVE B BYTES FROM X TO U 
GET FILE TYPE AND ASCII FLAG 
SAVE IN RAM IMAGE 
FIRST GRANULE TO CHECK 
FIND THE FIRST FREE GRANULE 
SAVE IN RAM 
SAVE IN RAM IMAGE OF DIRECTORY TRACK 

* GET WRITE OPERATION CODE AND SAVE 

* IT IN DSKCON REGISTER 
GO WRITE A SECTOR IN DIRECTORY 
SAVE REGISTERS 

POINT X TO FILE ALLOCATION TABLE 
INDICATE NEW DATA IN FILE ALLOC TABLE 
GET NEW DATA FLAG 

* HAVE ENOUGH GRANULES BEEN REMOVED FROM THE FAT TO 

* CAUSE THE FAT TO BE WRITTEN TO THE DISK 
RETURN IF NO NEED TO WRITE OUT ALLOCATION TABLE 
WRITE FILE ALLOCATION SECTOR TO DISK 
RESTORE REGISTERS 



GET DEVICE NUMBER 

BRANCH IF NOT DISK FILE 

GET RID OF RETURN ADDRESS 

SAVE REGISTERS 

CLEAR BUFFER NOT EMPTY FLAG 

POINT TO FILE BUFFER VECTOR TABLE 

GET ACTIVE DISK FILE NUMBER 

TIMES 2 - TWO BYTES PER FCB ADDRESS 
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0769 


C5A1 


AE 


85 




0770 


C5A3 


E6 


84 




0771 


C5A5 


CI 


40 




0772 


C5A7 


26 


16 




0773 










0774 










0775 


C5A9 


EC 


88 


15 


0776 


C5AC 


10 


A3 


09 


0777 


C5AF 


24 


20 




0778 


C5B1 


C3 


00 


01 


0779 


C5B4 


ED 


88 


15 


0780 


C5B7 


AE 


0B 




0781 


C5B9 


30 


8B 




0782 


C5BB 


A6 


IF 




0783 


C5BD 


35 


94 




0784 










0785 


C5BF 


E6 


88 


10 


0786 


C5C2 


27 


08 




0787 


C5C4 


A6 


88 


11 


0788 


C5C7 


6F 


88 


10 


0789 


C5CA 


35 


94 




0790 










0791 


C5CC 


E6 


88 


17 


0792 


C5CF 


27 


04 




0793 


C5D1 


03 


70 




0794 


C5D3 


35 


94 




0795 










0796 


C5D5 


E6 


05 




0797 


C5D7 


6C 


05 




0798 


C5D9 


6A 


88 


18 


0799 


C5DC 


27 


06 




0800 


C5DE 


3A 






0801 


C5DF 


A6 


88 


19 


0802 


C5E2 


35 


94 




0803 










0804 


C5E4 


34 


60 




0805 


C5E6 


4F 






0806 


C5E7 


33 


8B 




0807 


C5E9 


A6 


C8 


19 


0808 


C5EC 


34 


02 
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C5EE 


6F 
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A6 


01 




0811 


C5F2 


97 


EB 




0812 


C5F4 


8D 


04 




0813 


C5F6 


35 


62 




0814 


C5F8 


35 


94 




0815 










0816 


C5FA 


A6 


04 




0817 


C5FC 


4C 






0818 


C5FD 


34 


02 




0819 


C5FF 


81 


09 




0820 


C601 


23 


01 




0821 


C603 


4F 






0822 


C604 


A7 


04 




0823 


C606 


E6 


03 




0824 


C608 


33 


84 




0825 


C60A 


BD 


C7 


25 


0826 


C60D 


3A 






0827 


C60E 


E6 


06 




0828 


C610 


30 


C4 




0829 


C612 


CI 


C0 




0830 


C614 


24 


0A 




0831 


C616 


35 


02 




0832 


C618 


80 


0A 




0833 


C61A 


26 


15 




0834 


C61C 


E7 


03 




0835 


C61E 


20 


DC 




0836 


C620 


C4 


3F 




0837 


C622 


CI 


09 




0838 


C624 


23 


05 




0839 


C626 


C6 


40 




0840 


C628 


7E 


AC 


46 


0841 


C62B 


E0 


E0 




0842 


C62D 


25 


21 




0843 


C62F 


IF 


98 




0844 


C631 


34 


02 




0845 


C633 


8D 


23 




0846 


C635 


86 


02 




0847 


C637 


97 


EA 




0848 


C639 


BD 


C7 


33 


0849 


C63C 


33 


88 


19 


0850 


C63F 


DF 


EE 




0851 


C641 


BD 


D5 


FF 


0852 


C644 


6F 


88 


18 


0853 


C647 


E6 


E0 




0854 


C649 


26 


0C 




0855 


C64B 


EC 


88 


13 


0856 


C64E 


26 


04 




0857 


C650 


5F 






0858 


C651 


63 


88 


17 


0859 


C654 


E7 


88 


18 


0860 


C657 


39 






0861 










0862 


C658 


EE 


07 




0863 


C65A 


33 


41 




0864 


C65C 


EF 


07 







LDX 


B,X 




LDB 


FCBTYP.X 




CMPB 


#RANFIL 




BNE 


LC5BF 


* GET A 


BYTE 


FROM A RAI 




LDD 


FCBGET.X 




CMPD 


FCBRLN.X 




BHS 


LC5D1 




ADDD 


#$0001 




STD 


FCBGET.X 




LDX 


FCBBUF.X 




LEAX 


D,X 




LDA 


-1,X 




PULS 


B,X,PC 


* GET A 


BYTE 


FROM A SEC 


LC5BF 


LDB 


FCBCFL.X 




BEQ 


LC5CC 




LDA 


FCBCDT.X 




CLR 


FCBCFL.X 




PULS 


B,X,PC 



NOW X POINTS TO FILE BUFFER 
GET FILE TYPE 

IS THIS A RANDOM (DIRECT) FILE? 
BRANCH IF NOT 



RETURN CHAR IN ACCA 



SEQUENTIAL FILE 



LC5CC LDB FCBDFL.X 

BEQ LC5D5 

LC5D1 COM CINBFL 

PULS B,X,PC 



LC5D5 


LDB 


FCBCPT.X 




INC 


FCBCPT.X 




DEC 


FCBLFT.X 




BEQ 


LC5E4 




ABX 






LDA 


FCBCON.X 




PULS 


B,X,PC 


* GET A 


CHARACTER FROM FCB DATA BUFFER 


LC5E4 


PSHS 
CLRA 


U,Y 




LEAU 


D,X 




LDA 


FCBCON.U 




PSHS 


A 




CLR 


FCBCPT.X 




LDA 


FCBDRV.X 




STA 


DCDRV 




BSR 


LC5FA 




PULS 


A,Y,U 




PULS 


B,X,PC 


* REFILL 


. THE 


=CB INPUT DATA BUFFER FOR 


LC5FA 


LDA 


FCBSEC.X 


LC5FC 


INCA 






PSHS 


A 




CMPA 


#$09 




BLS 


LC604 




CLRA 




LC604 


STA 


FCBSEC.X 




LDB 


FCBCGR.X 




LEAU 


,x 




JSR 


LC725 




ABX 






LDB 


FATCON.X 




LEAX 


,u 




CMPB 


#$C0 




BHS 


LC620 




PULS 


A 




SUBA 


#10 




BNE 


LC631 




STB 


FCBCGR.X 




BRA 


LC5FC 


LC620 


ANDB 


#$3F 




CMPB 


#$09 




BLS 


LC62B 


LC626 


LDB 


#2*32 




JMP 


LAC46 


LC62B 


SUBB 


,s+ 




BLO 


LC650 




TFR 


B,A 


LC631 


PSHS 


A 




BSR 


LC658 




LDA 


#$02 




STA 


DCOPC 




JSR 


LC733 




LEAU 


FCBCON.X 




STU 


DCBPT 




JSR 


LD5FF 




CLR 


FCBLFT.X 




LDB 


,s+ 




BNE 


LC657 




LDD 


FCBLST.X 




BNE 


LC654 


LC650 


CLRB 






COM 


FCBDFL.X 


LC654 


STB 


FCBLFT.X 


LC657 


RTS 




LC658 


LDU 


FCBREC.X 




LEAU 


$01, U 




STU 


FCBREC.X 



GET THE RECORD COUNTER 

'COMPARE TO RECORD LENGTH AND 

♦BRANCH TO BUFFER EMPTY IF >= RECORD LENGTH 

= ADD ONE TO RECORD POINTER AND 

= SAVE IT IN FCB 

* POINT X TO START OF RANDOM FILE BUFFER AND 

* ADD THE RECORD COUNTER TO IT 
GET A CHARACTER FROM THE BUFFER 
RESTORE REGISTERS AND RETURN 

* TEST THE CACHE FLAG AND BRANCH IF AN 

* EXTRA CHARACTER HAS NOT BEEN READ FROM FILE 
GET THE CACHE CHARACTER 

CLEAR THE CACHE FLAG 
RESTORE REGISTERS AND RETURN 

IS ANY DATA LEFT? 

BRANCH IF SO 

SET FLAG TO BUFFER EMPTY 



GET CHARACTER POINTER 

ADD ONE TO CHARACTER POINTER 

DECREMENT NUMBER OF CHARACTERS LEFT IN FILE BUFFER 

IF LAST CHARACTER, GO GET SOME MORE 

ADD CHARACTER COUNTER TO X 

GET DATA CHARACTER (SKIP PAST 25 FCB CONTROL BYTES 

- RETURN CHAR IN ACCA 

SAVE REGISTERS 

* POINT U TO CORRECT CHARACTER 

=GET DATA CHAR (SKIP PAST 25 CONTROL BYTES) 
=AND SAVE DATA CHARACTER ON STACK 
RESET CHAR POINTER TO START OF BUFFER 
GET DRIVE NUMBER AND SAVE IT IN 
DSKCON VARIABLE 

GO READ A SECTOR - FILL THE BUFFER 
RESTORE REGISTERS AND DATA CHARACTER 
RESTORE REGISTERS AND RETURN 
SEQUENTIAL FILES 

GET CURRENT SECTOR NUMBER 

ADD ONE 

SAVE NEW SECTOR NUMBER ON THE STACK 

NINE SECTORS PER GRANULE 

BRANCH IF <= 9 

SET TO SECTOR ZERO 

SAVE SECTOR NUMBER 

GET GRANULE NUMBET TO FAT POINTER 

POINT U TO FCB (TFR X,U) 

POINT X TO PROPER FILE ALLOCATION TABLE 

ADD OLD GRANULE NUMBER TO FAT POINTER 

GET GRANULE NUMBER (6 CONTROL BYTES AT FRONT OF FAT) 

POINT X TO FCB 

IS CURRENT GRANULE LAST ONE IN FILE? 

YES 

GET SECTOR NUMBER 

WAS IT 10? - OVERFLOW TO NEXT GRANULE IF SO 

BRANCH IF NOT 

SAVE NEW GRANULE NUMBER 

SET VARIABLES FOR NEW GRANULE 

GET NUMBER OF SECTORS USED IN THIS GRANULE 

9 SECTORS 7 GRANULE 

BRANCH IF OK 

'BAD FILE STRUCTURE' ERROR 

ERROR DRIVER 

SUBTRACT CURRENT SECTOR NUMBER AND PULS A 

BRANCH IF PAST LAST SECTOR 

SECTOR NUMBER TO ACCA 

SAVE SECTOR NUMBER DIFFERENCE 

INCREMENT RECORD NUMBER 

*GET READ OPERATION CODE 

*AND SAVE IT IN DSKCON VARIABLE 

GET PROPER TRACK AND SECTOR TO DSKCON VARIABLES 

* POINT U TO START OF FCB DATA BUFFER 

* AND SAVE IT IN DSKCON VARIABLE 
GO READ A SECTOR INTO FCB BUFFER 
NUMBER OF CHARS LEFT IN BUFFER = 256 
GET SECTOR NUMBER OFF STACK 

RETURN IF DATA LEFT; FALL THRU IF LAST SECTOR 

GET NUMBER OF BYTES IN THE LAST SECTOR 

BRANCH IF SOME BYTES IN LAST SECTOR 

SET NUMBER OF REMAINING BYTES = 256 

SET DATA LEFT FLAG TO $FF 

SAVE THE NUMBER OF CHARS LEFT IN BUFFER 



GET CURRENT RECORD NUMBER 
BUMP IT 
PUT IT BACK 
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0865 

0866 
0867 



SCAN DIRECTORY FOR FILENAME. 
RETURN WITH SECTOR NUMBER IN 
CONTAINING DIRECTORY DATA IN 
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C6E0 


E6 


0D 
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ED 
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8D 
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6F 


01 
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C705 


30 


06 
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C6 


44 
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BD 


A5 


9A 
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0958 










0959 










0960 


C70C 


6F 


80 





* V977 


= 0. THE FIRST UNUSED SI 


LC65F 


CLR 


V973 




CLR 


V977 




LDD 


#$1102 




STA 


DCTRK 




STB 


DCOPC 




LDB 


#$03 


LC66E 


STB 


DSEC 




LDU 


#DBUF0 




STU 


DCBPT 




JSR 


LD5FF 


LC678 


STU 


V974 




LEAY 


,U 




LDA 


,u 




BNE 


LC6A9 




BSR 


LC6AC 


LC683 


LDX 


#DNAMBF 


LC686 


LDA 


,x+ 




CMPA 


,u+ 




BNE 


LC69A 




CMPX 


#DNAMBF+11 




BNE 


LC686 




STB 


V973 




LDA 


FCBFGR.U 




STA 


V976 




RTS 




LC69A 


LEAU 


DIRLEN.Y 




CMPU 


#DBUF0+SECLEN 




BNE 


LC678 




INCB 






CMPB 


#11 




BLS 


LC66E 




RTS 




LC6A9 


COMA 






BNE 


LC683 


* SET 


•OINTERS FOR FIRST UNUSEI 


LC6AC 


LDA 


V977 




BNE 


DVEC12 




STB 


V977 




STU 


V978 


DVEC12 


RTS 




LC6B8 


LDB 


#2*26 




TST 


V973 




BNE 


DVEC12 




JMP 


LAC46 


* KILL 


COMMAND 


KILL 


JSR 


LC887 




JSR 


LA5C7 




JSR 


LC76D 




BSR 


LC65F 




BSR 


LC6B8 


LC6CF 


LDA 


#$FF 




JSR 


LC7D7 




LDX 


V974 




CLR 


DIRNAM.X 




LDB 


#$03 




STB 


DCOPC 




JSR 


LD5FF 




LDB 


DIRGRN.X 


LC6E2 


BSR 


LC725 




LEAX 


FATCON.X 




ABX 






LDB 


,x 




LDA 


#$FF 




STA 


,x 




CMPB 


#$C0 


, 


BLO 


LC6E2 


LC6F1 


LDU 


#DBUF0 




STU 


DCBPT 




LDD 


#$1103 




STA 


DCTRK 




STB 


DCOPC 




LDB 


#$02 




STB 


DSEC 




BSR 


LC725 




CLR 


FAT1.X 




LEAX 


FATCON.X 




LDB 


#GRANMX 




JSR 


LA59A 



EXT FOUND IN DNAMBF. IF FILENAME FOUND, 
V973, GRANULE IN V976 AND RAM BUFFER 
V974. IF DISK IS FULL THEN V973, 

ECTOR RETURNED IN V977, RAM IMAGE IN V978 
CLEAR SECTOR NUMBER 
CLEAR TEMP SECTOR COUNTER 
TRACK 17 (DIRECTORY), READ OPERATION CODE 
SAVE TRACK NUMBER 
SAVE OPERATION CODE (READ) 
READ SECTOR 3 (FIRST DIRECTORY SECTOR) 
SAVE SECTOR NUMBER IN DSKCON VARIABLE 
♦BUFFER AREA NUMBER AS DATA BUFFER - SAVE 
*IN DSKCON VARIABLE 
GO READ A SECTOR 

SAVE RAM DIRECTORY BUFFER ADDRESS 
POINT Y TO DIRECTORY BUFFER 
GET A BYTE FROM BUFFER 
BRANCH IF NOT ZERO - FILE IS ACTIVE 
SET UNUSED FILE POINTERS IF ENTRY HAS BEEN KILLED 
POINT TO DISK FILE NAME BUFFER 
"COMPARE THE FILENAME AND EXTENSION 
♦STORED IN RAM AT DNAMBF TO THE DIRECTORY 
*ENTRY STORED AT ,U (BRANCH IF MISMATCH) 
AT END OF FILE NAME BUFFER? 
BRANCH IF NOT DONE CHECKING FILENAME 
SAVE SECTOR NUMBER IN DSKCON VARIABLE 
*GET NUMBER OF FIRST GRANULE IN FILE 
*AND SAVE IT IN V976 



GET NEXT DIRECTORY ENTRY (DIRLEN BYTES PER ENTRY) 

AT END OF BUFFER? 

CHECK NEXT ENTRY IF NOT AT END 

NEXT SECTOR 

11 SECTORS MAX IN DIRECTORY 

BRANCH IF MORE SECTORS 



COMPLEMENT FIRST BYTE IN DIRECTORY EMTRY 

BRANCH IF FILE IS ACTIVE - FALL THRU IF NOT USED 



UNUSED ENTRY ALREADY FOUND? 

RETURN IF UNUSED ENTRY ALREADY FOUND 

SECTOR CONTAINING THIS DIRECTORY ENTRY 

POINTS TO RAM AREA WHERE DIRECTORY DATA IS STORED 



'NE' ERROR 

WAS A DIRECTORY MATCH FOUND? 

RETURN IF FOUND 

JUMP TO ERROR HANDLER IF NOT FOUND 



GET FILENAME. EXT FROM BASIC 

'SYNTAX' ERROR IF MORE CHARACTERS ON LINE 

GET VALID FAT DATA 

TEST FOR FILE NAME MATCH IN DIRECTORY 

MAKE SURE THE FILE EXISTED 

* MATCH FILE TYPE = $FF; THIS WILL CAUSE AN 'AO' 

* ERROR TO BE GENERATED IF ANY FILE TYPE IS OPEN 
CHECK TO MAKE SURE FILE IS NOT OPEN 

*GET RAM IMAGE OF DIRECTORY 

*AND ZERO FIRST BYTE - KILL FILE 

=WRITE OPERATION CODE - SAVE 

=IT IN DSKCON VARIABLE 

WRITE A SECTOR 

GET NUMBER OF FIRST GRANULE IN FILE 

POINT X TO PROPER FILE ALLOCATION TABLE 

SKIP 6 CONTROL BYTES 

POINT TO CORRECT ENTRY 

GET NEXT GRANULE 

*GET FREE GRANULE FLAG AND 

*MARK GRANULE AS FREE 

WAS THIS THE LAST GRANULE? 

* KEEP FREEING GRANULES IF NOT LAST ONE 

* WRITE FILE ALLOCATION SECTOR TO DIRECTORY - DO NOT WRITE 

* THE SIX CONTROL BYTES AT THE START OF THE FAT TO THE DISK 
=POINT U TO DISK BUFFER AND 

=SAVE IT AS DSKCON VARIABLE 

* WRITE DIRECTORY TRACK - SAVE 

* TRACK AND WRITE OPERATION CODE IN 

* DSKCON VARIABLES 

= GET FILE ALLOCATION SECTOR AND 

= SAVE IN DSKCON VARIABLE 

POINT X TO PROPER FILE ALLOCATION TABLE 

RESET FLAG INDICATING VALID FAT DATA HAS BEEN STORED ON DISK 

MOVE (X) TO START OF GRANULE DATA 

68 BYTES IN FAT 

MOVE ACCB BYTES FROM FAT RAM IMAGE TO DBUF0 



* ZERO OUT ALL OF THE BYTES IN THE FAT SECTOR WHICH DO NOT CONTAIN THE GRANULE DATA 

* ZERO OUT THE REMAINDER OF THE SECTOR BUFFER 

LC70C CLR ,X+ THIS IS A BUG; SHOULD BE CLR ,U+ 
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C767 


8B 


09 


1030 


C769 


2B 


FB 


1031 


C76B 


4F 




1032 


C76C 


39 




1033 








1034 








1035 


C76D 


8D 


B6 


1036 


C76F 


6D 


00 


1037 


C771 


26 


F9 


1038 


C773 


6F 


01 


1039 


C775 


33 


06 


1040 


C777 


8E 


06 00 


1041 


C77A 


9F 


EE 


1042 


C77C 


CC 


11 02 


1043 


C77F 


97 


EC 


1044 


C781 


D7 


EA 


1045 


C783 


C6 


02 


1046 


C785 


D7 


ED 


1047 


C787 


BD 


D5 FF 


1048 


C78A 


C6 


44 


1049 


C78C 


7E 


A5 9A 


1050 








1051 








1052 








1053 








1054 








1055 








1056 


C78F 


8D 


94 



CMPX #DBUF0+SECLEN MORE OF THE SAME BUG; SHOULD BE CMPU 

BNE LC70C THIS INSTRUCTION HAS BEEN LEFT OUT 

JMP LD5FF WRITE A SECTOR 

ENTER WITH ACCB CONTAINING FILE NUMBER (1-15); EXIT WITH X POINTING 
TO CORRECT FILE BUFFER; FLAGS SET ACCORDING TO FILE TYPE. 



SAVE FILE NUMBER ON STACK 

GET DEVICE NUMBER (FILE NUMBER) 

SKIP TWO BYTES 

SAVE FILE NUMBER ON STACK 

X2: 2 BYTES PER POINTER 

POINT X TO START OF FCB POINTERS 

POINT X TO PROPER FCB 

SET FLAGS ACCORDING TO FILE TYPE 

RESTORE FILE NUMBER 



LC714 


PSHS 


B 






LDB 


DEVNUM 




LC718 


CMPX 


#$3404 




LC719 


PSHS 
ASLB 


B 






LDX 


#FCBV1- 


2 




LDX 


B,X 






LDB 


FCBTYP ! 


X 




PULS 


B,PC 





POINT X TO DRIVE ALLOCATION TABLE 



PSHS 


B,A 


LDA 


DCDRV 


LDB 


#FATLEN 


MUL 




LDX 


#FATBL0 


LEAX 


D,X 


PULS 


A,B,PC 



CONVERT GRANULE NUMBER TO 
FCB; THE TRACK AND SECTOR 



LC733 


LDB 
LSRB 


FCBCGR 


,X 




STB 


DCTRK 






CMPB 


#17 






BLO 


LC73E 






INC 


DCTRK 




LC73E 


ASLB 
NEGB 








ADDB 


FCBCGR 


,X 




BSR 


LC749 






ADDB 


FCBSEC 


,x 




STB 


DSEC 






RTS 






* MULTIPLY ACCD BY 9 




LC749 


PSHS 
ASLB 
ROLA 
ASLB 
ROLA 
ASLB 
ROLA 


B,A 






ADDD 


,s++ 






RTS 







SAVE ACCD ON STACK 

GET DRIVE NUMBER 

GET LENGTH OF FILE ALLOCATION TABLE 

MULTIPLY BY DRIVE NUMBER TO GET OFFSET 

START OF FILE ALLOCATION TABLE 

POINT TO RIGHT TABLE 

RESTORE ACCD 

TRACK S SECTOR NUMBER - X MUST BE POINTING TO CORRECT 
NUMBER WILL BE STORED IN DSKCON REGISTERS 

GET GRANULE NUMBER 

DIVIDE BY 2 - 2 GRANULES 7 TRACK 

TRACK NUMBER 

TRACK 17 = DIRECTORY TRACK 

BRANCH IF < DIRECTORY TRACK 

INCR TRACK NUMBER IF > DIRECTORY TRACK 

MULTIPLY TRACK NUMBER BY 2 

NEGATE GRANULE NUMBER 

B=0 IF EVEN GRANULE; 1 IF ODD 

RETURN B=0 FOR EVEN GRANULE NUMBER, B=9 FOR ODD GRANULE NUMBER 

ADD SECTOR NUMBER 

SAVE SECTOR NUMBER 



TEMP STORE ACCD ON STACK 

* MULTIPLY BY 2 

= MULTIPLY BY FOUR 
* 

* MULTIPLY BY EIGHT 

ADD ONE = MULTIPLY BY NINE 



CONVERT ACCD INTO A GRANULE NUMBER - RETURN RESULT IN ACCB; 
ENTER WITH ACCD CONTAINING A NUMBER OF SECTORS. RETURN IN ACCB 
THE NUMBER (0-67) CORRESPONDING TO THE NUMBER OF COMPLETE 
GRANULES CONTAINED IN THAT MANY SECTORS. 

MULTIPLY BY 10 IS FASTER THAN DIVIDE BY 9 

CLEAR A TEMPORARY SLOT ON THE STACK 

* DIVIDE ACCD BY 90 - SAVE THE 

* QUOTIENT+1 ON THE STACK - REMAINDER 

* IN ACCB 

= PUT THE OUOTIENT+1 IN ACCA AND 
= SAVE REMAINDER ON STACK 

* MULTIPLY (QUOTIENT+1) 

* BY 10 
PUT THE REMAINDER IN ACCA 

* DECREMENT THE GRANULE COUNT BY ONE FOR 

* EVERY NINE SECTORS (1 GRANULE) IN THE 

* REMAINDER - COMPENSATE FOR THE + 1 IN OUOTIENT+1 
CLEAR MS BYTE OF ACCD 



ION TABLE DATA IS VALID 

POINT X TO FAT FOR THE CORRECT DRIVE NUMBER 

CHECK TO SEE IF ANY FILES ARE ACTIVE 

RETURN IF ANY FILES ACTIVE IN THIS FAT 

RESET FAT DATA VALID FLAG 

LOAD U WITH START OF GRANULE DATA BUFFER 

BUFFER FOR DISK TRANSFER 

PUT IN DSKCON PARAMETER 

DIRECTORY TRACK, READ SECTOR 

STORE IN DSKCON TRACK NUMBER 

STORE IN DSKCON OP CODE 

GET SECTOR NUMBER 2 (FILE ALLOCATION TABLE) 

STORE IN DSKCON PARAMETER 

GO READ SECTOR 

TRANSFER FILE ALLOCATION TABLE TO FILE ALLOC TABLE BUFFER 

MOVE B BYTES FROM (X) TO (U) 



* FIND FIRST FREE GRANULE - ENTER WITH ACCB CONTAINING 

* GRANULE FROM WHICH TO START SEARCHING. THE FOUND GRANULE 

* IS MARKED BY STORING A $C0 IN THE GRANULE'S DATA BYTE 

* TO INDICATE THAT IT IS THE LAST GRANULE IN THE FILE. 

* RETURN WITH FIRST FREE GRANULE FOUND IN ACCA 

LC78F BSR LC725 POINT X TO FILE ALLOC TABLE 



* DIVIDE BY 90, MULTIPL 


LC754 


CLR 


,-S 


LC756 


INC 


,s 




SUBD 


#9*10 




BPL 


LC756 




LDA 


,s 




STB 


,s 




LDB 


#10 




MUL 






PULS 


A 


LC766 


DECB 






ADDA 


#$09 




BMI 


LC766 




CLRA 




LC76C 


RTS 




* MAKE 


SURE RAM FILE AL 


LC76D 


BSR 


LC725 




TST 


FAT0.X 




BNE 


LC76C 




CLR 


FAT1.X 




LEAU 


FATCON.X 




LDX 


#DBUF0 




STX 


DCBPT 




LDD 


#$1102 




STA 


DCTRK 




STB 


DCOPC 




LDB 


#$02 




STB 


DSEC 




JSR 


LD5FF 




LDB 


#GRANMX 




JMP 


LA59A 



DISK BASIC UNRAVELLED II 



APPENDIX C 
DISASSEMBLY OF DISK BASIC 1.0 



ORIGIN:SPECTRAL ASSOC 
REVISED: 12/26/1999 WALTER K ZYDHEK 



1057 


C791 


30 


06 




1058 


C793 


4F 






1059 


C794 


C4 


FE 




1060 


C796 


6F 


E2 




1061 


C798 


63 


85 




1062 


C79A 


27 


31 




1063 


C79C 


63 


85 




1064 


C79E 


4C 






1065 


C79F 


81 


44 




1066 


C7A1 


24 


25 




1067 


C7A3 


5C 






1068 


C7A4 


C5 


01 




1069 


C7A6 


26 


F0 




1070 


C7A8 


34 


06 




1071 


C7AA 


C0 


02 




1072 


C7AC 


63 


62 




1073 


C7AE 


26 


0C 




1074 


C7B0 


E0 


E0 




1075 


C7B2 


2A 


04 




1076 


C7B4 


E6 


E4 




1077 


C7B6 


63 


61 




1078 










1079 










1080 


C7B8 


32 


61 




1081 


C7BA 


20 


DC 




1082 










1083 


C7BC 


EB 


E0 




1084 


C7BE 


CI 


44 




1085 


C7C0 


25 


F6 




1086 


C7C2 


E6 


E4 




1087 


C7C4 


C0 


04 




1088 


C7C6 


20 


EE 




1089 


C7C8 


C6 


38 




1090 


C7CA 


7E 


AC 


46 


1091 










1092 










1093 










1094 


C7CD 


32 


61 




1095 


C7CF 


IF 


98 




1096 


C7D1 


3A 






1097 


C7D2 


C6 


C0 




1098 


C7D4 


E7 


84 




1099 


C7D6 


39 






1100 










1101 










1102 










1103 










1104 










1105 










1106 










1107 


C7D7 


34 


02 




1108 


C7D9 


F6 


09 


5B 


1109 


C7DC 


5C 






1110 


C7DD 


BD 


C7 


19 


1111 


C7E0 


27 


17 




1112 


C7E2 


96 


EB 




1113 


C7E4 


Al 


01 




1114 


C7E6 


26 


11 




1115 


C7E8 


FE 


09 


74 


1116 


C7EB 


A6 


4D 




1117 


C7ED 


Al 


02 




1118 


C7EF 


26 


08 




1119 


C7F1 


A6 


00 




1120 


C7F3 


Al 


E4 




1121 


C7F5 


10 


26 


DE 23 


1122 


C7F9 


5A 






1123 


C7FA 


26 


El 




1124 


C7FC 


35 


82 




1125 










1126 


C7FE 


BD 


A5 


A5 


1127 


C801 


0F 


6F 




1128 


C803 


5D 






1129 


C804 


10 


2F 


EC 42 


1130 


C808 


BD 


C7 


19 


1131 


C80B 


A6 


00 




1132 


C80D 


10 


27 


DB EA 


1133 


C811 


81 


40 




1134 


C813 


27 


CI 




1135 


C815 


7E 


A6 


16 


1136 










1137 










1138 


C818 


86 


10 




1139 


C81A 


8C 


86 


20 


1140 










1141 










1142 


C81B 


86 


20 




1143 


C81D 


0D 


6F 




1144 


C81F 


2F 


B5 




1145 


C821 


AF 


E4 




1146 










1147 


C823 


BD 


C7 


14 


1148 


C826 


34 


02 




1149 


C828 


A6 


00 




1150 


C82A 


10 


27 


DB CD 


1151 


C82E 


81 


40 




1152 


C830 


27 


04 





LEAX 


FATCON,X 


CLRA 




ANDB 


#$FE 


CLR 


,-S 


COM 


B,X 


BEQ 


LC7CD 


COM 


B,X 


INCA 




CMPA 


#GRANMX 


BHS 


LC7C8 


INCB 




BITB 


#$01 


BNE 


LC798 


PSHS 


B,A 


SUBB 


#$02 


COM 


$02, S 


BNE 


LC7BC 


SUBB 


,s+ 


BPL 


LC7B8 


LDB 


,s 


COM 


$01, s 


LEAS 


$01, s 


BRA 


LC798 


ADDB 


,s+ 


CMPB 


#GRANMX 


BLO 


LC7B8 


LDB 


,s 


SUBB 


#$04 


BRA 


LC7B6 


LDB 


#2*28 


JMP 


LAC46 



SKIP CONTROL BYTES 

USE ACCA AS GRANULE COUNTER 

MASK OFF BIT ZERO OF SEARCH GRANULE 

INITIALIZE AND SAVE A BYTE ON STACK (DIRECTION FLAG) 

IS THIS GRANULE FREE? ($FF=FREE) 

BRANCH IF IT IS 

RESTORE GRANULE DATA 

ADD ONE TO GRANULE COUNTER 

GRANMX GEANULES PER DISK 

BRANCH IF ALL GRANULES CHECKED (DISK FULL) 

INCR TO NEXT GRANULE 

IS BIT SET? 

BRANCH IF ODD GRANULE NUMBER (SAME TRACK) 

SAVE GRANULE COUNTER AND CURRENT GRANULE NUMBER 

SUBTRACT ONE TRACK (2 GRANULES) 

COMPLEMENT DIRECTION FLAG 

BRANCH EVERY OTHER TIME 

SUBTRACT THE GRANULE COUNTER FROM THE CURRENT GRANULE NUMBER 

BRANCH IF LOWER BOUND NOT EXCEEDED 

RESTORE CURRENT GRANULE NUMBER IF LOWER BOUND EXCEEDED 

* COMPLEMENT FLAG - IF GRANULE NUMBER HAS EXCEEDED 

* BOUNDS ON EITHER THE HI OR LO SIDE, FORCE IT TO GO IN 

* THE DIRECTION OPPOSITE THE EXCEEDED BOUND 
CLEAN UP STACK 

CHECK FOR ANOTHER FREE GRANULE 

ADD THE GRANULE COUNTER TO THE CURRENT GRANULE NUMBER 

GRANMX GRANULES PER DISK 

BRANCH IF UPPER BOUND NOT EXCEEDED 

* RESTORE CURRENT GRANULE COUNT AND GO TWICE 

* AS FAR AS USUAL IN OPPOSITE DIRECTION IF UPPER BOUND EXCEEDED 
KEEP SEARCHING 

'DISK FULL' ERROR 
JUMP TO ERROR HANDLER 



POINT X TO FIRST FREE GRANULE POSITION IN THE FILE ALLOCATION 
TABLE AND MARK THE POSITION WITH A LAST GRANULE IN FILE MARKER 



LEAS 


$01, S 


TFR 


B,A 


LDB 


#$C0 


STB 


,x 


RTS 





CLEAR UP STACK - REMOVE DIRECTION FLAG 

GRANULE NUMBER TO ACCA 

POINT X TO FIRST FOUND GRANULE 

LAST GRANULE FLAG 

MARK THE FIRST FOUND GRANULE AS THE LAST GRANULE 



CHECK ALL ACTIVE FILES TO MAKE SURE A FILE IS NOT ALREADY OPEN - TO BE OPEN 

A FILE BUFFER MUST MATCH THE DRIVE NUMBER AND FIRST GRANULE NUMBER 

IN RAM DIRECTORY ENTRY AND THE FCB TYPE MUST NOT MATCH THE FILE TYPE IN ACCA 

AN 'AO' ERROR WILL NOT BE GENERATED IF A FILE IS BEING OPENED FOR 

THE SAME MODE THAT IT HAS ALREADY BEEN OPENED UNDER. 



SAVE FILE TYPE ON STACK 
NUMBER OF CURRENTLY OPEN FILES 
ADD ONE MORE TO FILE COUNTER 
POINT X TO FCB OF THIS FILE 
BRANCH IF BUFFER NOT BEING USED 

* GET DRIVE NUMBER AND CHECK TO SEE IF IT 

* MATCHES THE DRIVE NUMBER FOR THIS BUFFER 
FILE EXISTS ON ANOTHER DRIVE 

GET RAM DIRECTORY AREA 

GET FIRST GRANULE IN FILE 

DOES IT MATCH THIS FILE BUFFER? 

NO 

GET FILE TYPE OF THIS BUFFER 

DOES IT MATCH THE ONE WE ARE LOOKING FOR? 

'FILE ALREADY OPEN' ERROR IF NOT 

DECR FILE COUNTER 

BRANCH IF HAVEN'T CHECKED ALL ACTIVE FILES 

RESTORE FILE TYPE AND RETURN 

EVALUATE AN EXPRESSION (DEVICE NUMBER) 

SET DEVICE NUMBER TO SCREEN 

TEST NEW DEVICE NUMBER 

'FC' ERROR IF DEVICE NUMBER NOT A DISK FILE 

POINT X TO FCB 

TEST IF BUFFER IS IN USE 

'FILE NOT OPEN' ERROR 

DIRECT/RANDOM FILE? 

RETURN IF RANDOM 

BAD FILE MODE ERROR IF NOT RANDOM 



PSHS 


A 




LDB 


FCBACT 




INCB 






JSR 


LC719 




BEQ 


LC7F9 




LDA 


DCDRV 




CMPA 


FCBDRV ! 


,X 


BNE 


LC7F9 




LDU 


V974 




LDA 


DIRGRN. 


,u 


CMPA 


FCBFGR : 


,x 


BNE 


LC7F9 




LDA 


FCBTYP ! 


,x 


CMPA 


,s 




LBNE 


LA61C 




DECB 






BNE 


LC7DD 




PULS 


A, PC 




JSR 


LA5A5 




CLR 


DEVNUM 




TSTB 






LBLE 


LB44A 




JSR 


LC719 




LDA 


FCBTYP ! 


,x 


LBEQ 


LA3FB 




CMPA 


#RANFIL 


BEQ 


LC7D6 




JMP 


LA616 





* INPUT DEVICE NUMBER CHECK RAM HOOK 
DVEC5 LDA #INPFIL 

LC81A CMPX #$8620 

* PRINT DEVICE NUMBER CHECK RAM HOOK 
DVEC6 LDA #OUTFIL 

TST DEVNUM 

BLE LC7D6 

STX ,S 

JSR LC714 

PSHS A 

LDA FCBTYP.X 

LBEQ LA3FB 

CMPA SRANFIL 

BEQ LC836 



INPUT FILE TYPE 
SKIP TWO BYTES 



OUTPUT FILE TYPE 

* CHECK DEVICE NUMBER AND RETURN IF 

* NOT A DISK FILE 

= REPLACE SUBROUTINE RETURN ADDRESS WITH X REGISTER 

= THIS IS THE SAME AS LEAS 2,S AND PSHS X 

POINT X TO FCB 

SAVE FILE TYPE ON STACK 

GET FILE TYPE 

■FILE NOT OPEN' ERROR 

RANDOM FILE? 

BRANCH IF RANDOM FILE 



DISK BASIC UNRAVELLED II 



APPENDIX C 
DISASSEMBLY OF DISK BASIC 1.0 



ORIGIN:SPECTRAL ASSOC 
REVISED: 12/26/1999 WALTER K ZYDHEK 



1153 


C832 


Al 


E4 




1154 


C834 


26 


DF 




1155 


C836 


35 


92 




1156 










1157 


C838 


2F 


9C 




1158 


C83A 


Fl 


09 


5B 


1159 


C83D 


10 


22 


DD DE 


1160 


C841 


35 


90 




1161 










1162 










1163 


C843 


0D 


6F 




1164 


C845 


2F 


8F 




1165 


C847 


32 


62 




1166 


C849 


34 


16 




1167 


C84B 


0F 


6E 




1168 


C84D 


BD 


C7 


14 


1169 


C850 


E6 


06 




1170 


C852 


4F 






1171 


C853 


8E 


10 


00 


1172 


C856 


7E 


A3 


7C 


1173 










1174 










1175 


C859 


0D 


6F 




1176 


C85B 


2F 


02 




1177 


C85D 


32 


62 




1178 


C85F 


39 






1179 










1180 










1181 


C860 


32 


62 




1182 


C862 


96 


6F 




1183 


C864 


34 


02 




1184 


C866 


BD 


A5 


AE 


1185 


C869 


BD 


A3 


ED 


1186 


C86C 


0D 


6F 




1187 


C86E 


10 


2F 


DD 68 


1188 


C872 


BD 


C7 


14 


1189 


C875 


E6 


00 




1190 


C877 


CI 


40 




1191 


C879 


27 


9A 




1192 


C87B 


5F 






1193 


C87C 


A6 


88 


10 


1194 


C87F 


26 


03 




1195 


C881 


E6 


88 


17 


1196 


C884 


7E 


A5 


E4 


1197 










1198 










1199 


C887 


8E 


C2 


91 


1200 


C88A 


6F 


E2 




1201 


C88C 


B6 


09 


5A 


1202 


C88F 


97 


EB 




1203 


C891 


CE 


09 


4C 


1204 


C894 


CC 


20 


08 


1205 


C897 


A7 


C0 




1206 


C899 


5A 






1207 


C89A 


26 


FB 




1208 


C89C 


C6 


03 




1209 


C89E 


BD 


A5 


9A 


1210 


C8A1 


BD 


87 


48 


1211 


C8A4 


33 


84 




1212 


C8A6 


CI 


02 




1213 


C8A8 


25 


12 




1214 


C8AA 


A6 


41 




1215 


C8AC 


81 


3A 




1216 


C8AE 


26 


0C 




1217 


C8B0 


A6 


C4 




1218 


C8B2 


81 


30 




1219 


C8B4 


25 


06 




1220 


C8B6 


81 


33 




1221 


C8B8 


22 


02 




1222 


C8BA 


8D 


33 




1223 


C8BC 


8E 


09 


4C 


1224 


C8BF 


5C 






1225 


C8C0 


5A 






1226 


C8C1 


26 


0C 




1227 


C8C3 


32 


61 




1228 


C8C5 


8C 


09 


4C 


1229 


C8C8 


26 


67 




1230 


C8CA 


C6 


3E 




1231 


C8CC 


7E 


AC 


46 


1232 


C8CF 


A6 


C0 




1233 


C8D1 


81 


2E 




1234 


C8D3 


27 


2D 




1235 


C8D5 


81 


2F 




1236 


C8D7 


27 


29 




1237 


C8D9 


81 


3A 




1238 


C8DB 


27 


09 




1239 


C8DD 


8C 


09 


54 


1240 


C8E0 


27 


E8 




1241 


C8E2 


8D 


3E 




1242 


C8E4 


20 


DA 




1243 


C8E6 


8D 


DD 




1244 


C8E8 


8D 


05 




1245 


C8EA 


5D 






1246 


C8EB 


26 


DD 




1247 


C8ED 


35 


82 




1248 











CMPA ,S 

BNE LC815 

LC836 PULS A,X,PC 

* DEVICE NUMBER VALIDITY CHECK RAM HOOK 
DVEC1 BLE LC7D6 

CMPB FCBACT 

LBHI LA61F 

PULS X,PC 

* SET PRINT PARAMETERS RAM HOOK 



DVEC2 


TST 


DEVNUM 




BLE 


LC7D6 




LEAS 


$02, S 




PSHS 


X,B,A 




CLR 


PRTDEV 




JSR 


LC714 




LDB 


FCBPOS.X 




CLRA 






LDX 


#$1000 




JMP 


LA37C 


* BREAK 


CHECK 


RAM HOOK 


DVEC11 


TST 


DEVNUM 




BLE 


LC85F 




LEAS 


$02, S 


LC85F 


RTS 




* EOF RAM HOOK 


DVEC14 


LEAS 


$02, S 




LDA 


DEVNUM 




PSHS 


A 




JSR 


LA5AE 




JSR 


LA3ED 




TST 


DEVNUM 




LBLE 


LA5DA 




JSR 


LC714 




LDB 


FCBTYP.X 




CMPB 


#RANFIL 




BEQ 


LC815 




CLRB 






LDA 


FCBCFL.X 




BNE 


LC884 




LDB 


FCBDFL.X 


LC884 


JMP 


LA5E4 


* GET FILENAME/EXTENSION 


LC887 


LDX 


#DEFEXT 


LC88A 


CLR 


,-s 




LDA 


DEFDRV 




STA 


DCDRV 




LDU 


#DNAMBF 




LDD 


#$2008 


LC897 


STA 

DECB 


,u+ 




BNE 


LC897 




LDB 


#$03 




JSR 


LA59A 




JSR 


L8748 




LEAU 


,x 




CMPB 


#$02 




BLO 


LC8BC 




LDA 


$01, U 




CMPA 


#' : ' 




BNE 


LC8BC 




LDA 


,u 




CMPA 


#'0' 




BLO 


LC8BC 




CMPA 


#'3' 




BHI 


LC8BC 




BSR 


LC8EF 


LC8BC 


LDX 

INCB 


#DNAMBF 


LC8C0 


DECB 






BNE 


LC8CF 




LEAS 


$01, s 




CMPX 


#DNAMBF 




BNE 


LC931 


LC8CA 


LDB 


#2*31 




JMP 


LAC46 


LC8CF 


LDA 


,u+ 




CMPA 


#' . ' 




BEQ 


LC902 




CMPA 


#'/' 




BEQ 


LC902 




CMPA 


#' : ' 




BEQ 


LC8E6 




CMPX 


#DEXTBF 




BEQ 


LC8CA 




BSR 


LC922 




BRA 


LC8C0 


LC8E6 


BSR 


LC8C5 




BSR 


LC8EF 




TSTB 






BNE 


LC8CA 


LC8ED 


PULS 


A, PC 



IS THIS FCB OF THE PROPER TYPE? 
'FILE MODE' ERROR IF NOT 
RETURN 

RETURN IF NOT A DISK FILE 

COMPARE DEVICE NUMBER TO HIGHEST POSSIBLE 

'DEVICE NUMBER' ERROR IF TOO BIG 

RETURN 



♦CHECK DEVICE NUMBER AND 

♦RETURN IF NOT DISK FILE 

PURGE RETURN ADDRESS OFF OF THE STACK 

SAVE REGISTERS 

SET PRINT DEVICE NUMBER TO NON-CASSETTE 

POINT X TO FCB 

GET PRINT POSITION 

PRINT WIDTH (256) 

TAB FIELD WIDTH AND TAB ZONE 

SAVE THE PRINT PARAMETERS 



CHECK DEVICE NUMBER AND RETURN 

IF NOT A DISK FILE 

PURGE RETURN ADDRESS OFF OF THE STACK - DON' 

DO A BREAK CHECK IF DISK FILE 



PURGE RETURN ADDRESS OFF OF THE STACK 

* GET DEVICE NUMBER AND SAVE 

* IT ON THE STACK 

STRIP DEVICE NUMBER OFF OF INPUT LINE 
VERIFY THAT THE FILE TYPE WAS 'INPUT' 

* CHECK DEVICE NUMBER AND 

* BRANCH BACK TO BASIC'S EOF IF NOT DISK FILE 
POINT X TO FCB 

GET FILE TYPE 

RANDOM FILE? 

'BAD FILE MODE' ERROR IF RANDOM 

FILE NOT EMPTY FLAG - SET TO NOT EMPTY 

*CHECK THE CACHE FLAG - BRANCH IF 

♦THERE IS A CHARACTER WHICH HAS BEEN CACHED 

GET SEQUENTIAL INPUT FILE STATUS 

LINK BACK TO BASIC'S EOF STATEMENT 

DRIVE NUMBER FROM BASIC 

POINT TO ' ' BLANK (DEFAULT) EXTENSION 
CLEAR A BYTE ON STACK FOR USE AS A DRIVES FLAG 

* GET DEFAULT DISK NUMBER 

* STORE IN DSKCON PARAMETER 
DISK FILENAME BUFFER 

STORE 8 BLANKS IN RAM (DEFAULT FILE NAME) 

STORE A BLANK IN FILE NAME 

DECREMENT COUNTER 

BRANCH IF NOT DONE 

3 BYTES IN EXTENSION 

MOVE B BYTES FROM (X) TO (U) 

EVALUATE A STRING EXPRESSION 

POINT U TO START OF STRING 

* CHECK LENGTH OF STRING AND 

* BRANCH IF < 2 

= GET 2ND CHARACTER IN STRING AND 

= CHECK FOR COLON 

BRANCH IF NO DRIVE NUMBER 

* GET 1ST CHARACTER 

* IN STRING AND 

* CHECK TO SEE 

* IF IT IS IN 

* THE RANGE 0-3 
GET DRIVE NUMBER 

POINT X TO FILE NAME BUFFER 

COMPENSATE FOR DECB BELOW 

DECREMENT STRING LENGTH 

BRANCH IF MORE CHARACTERS IN STRING 

CLEAN UP STACK - REMOVE DRIVE FLAG 

POINTER STILL AT START OF BUFFER? 

RETURN IF NOT 

'BAD FILENAME' ERROR IF NULL FILENAME 

ERROR HANDLER 

GET A CHARACTER FROM STRING 

LOOK FOR PERIOD? 

YES 

SLASH? 

YES 

COLON? 

YES 

COMPARE POINTER TO END OF FILENAME BUFFER 

'BAD FILENAME' ERROR - FILENAME TOO LONG 

PUT A CHARACTER IN FILENAME 

GET ANOTHER CHARACTER FROM STRING 

'BAD FILENAME' ERROR IF NO FILENAME YET 

GET DRIVE NUMBER 

* CHECK LENGTH OF STRING 

* 'BAD FILENAME' ERROR IF MORE CHARACTERS LEFT 
REMOVE DRIVES FLAG FROM STACK AND RETURN 
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1249 










1250 


C8EF 


63 


62 




1251 


C8F1 


27 


D7 




1252 


C8F3 


A6 


CI 




1253 


C8F5 


C0 


02 




1254 


C8F7 


80 


30 




1255 


C8F9 


25 


CF 




1256 


C8FB 


81 


03 




1257 


C8FD 


22 


CB 




1258 


C8FF 


97 


EB 




1259 


C901 


39 






1260 










1261 










1262 


C902 


8D 


CI 




1263 


C904 


8E 


09 


57 


1264 


C907 


86 


20 




1265 


C909 


A7 


82 




1266 


C90B 


8C 


09 


54 


1267 


C90E 


26 


F9 




1268 


C910 


5A 






1269 


C911 


27 


DA 




1270 


C913 


A6 


C0 




1271 


C915 


81 


3A 




1272 


C917 


27 


CD 




1273 


C919 


8C 


09 


57 


1274 


C91C 


27 


AC 




1275 


C91E 


8D 


02 




1276 


C920 


20 


EE 




1277 










1278 










1279 


C922 


A7 


80 




1280 


C924 


27 


A4 




1281 


C926 


81 


2E 




1282 


C928 


27 


A0 




1283 


C92A 


81 


2F 




1284 


C92C 


27 


9C 




1285 


C92E 


4C 






1286 


C92F 


27 


99 




1287 


C931 


39 






1288 










1289 










1290 


C932 


81 


4D 




1291 


C934 


10 


27 


05 54 


1292 


C938 


8D 


4B 




1293 


C93A 


9E 


8A 




1294 


C93C 


BF 


09 


57 


1295 


C93F 


9D 


A5 




1296 


C941 


27 


21 




1297 


C943 


BD 


B2 


6D 


1298 


C946 


C6 


41 




1299 


C948 


BD 


B2 


6F 


1300 


C94B 


26 


E4 




1301 


C94D 


73 


09 


58 


1302 


C950 


8D 


04 




1303 


C952 


4F 






1304 


C953 


7E 


B7 


64 


1305 










1306 










1307 










1308 


C956 


86 


4F 




1309 


C958 


8C 


86 


49 


1310 


C959 


86 


49 




1311 


C95B 


F6 


09 


5B 


1312 


C95E 


5C 






1313 


C95F 


D7 


6F 




1314 


C961 


7E 


C4 


68 


1315 










1316 










1317 


C964 


8D 


F0 




1318 


C966 


86 


FF 




1319 


C968 


BD 


CB 


52 


1320 


C96B 


DC 


IB 




1321 


C96D 


93 


19 




1322 


C96F 


BD 


CB 


52 


1323 


C972 


IF 


98 




1324 


C974 


BD 


CB 


52 


1325 


C977 


9E 


19 




1326 


C979 


A6 


80 




1327 


C97B 


BD 


CB 


52 


1328 


C97E 


9C 


IB 




1329 


C980 


26 


F7 




1330 


C982 


7E 


A4 


2D 


1331 


C985 


8E 


C2 


8E 


1332 


C988 


7E 


C8 


8A 


1333 










1334 










1335 


C98B 


4F 






1336 


C98C 


C6 


FF 




1337 


C98E 


20 


12 




1338 










1339 










1340 


C990 


81 


22 




1341 


C992 


10 


26 


B9 06 


1342 


C996 


86 


02 




1343 


C998 


20 


07 




1344 











GRAB DRIVE NUMBER 



LC8EF 


COM 


$02, S 




BEQ 


LC8CA 




LDA 


,U++ 




SUBB 


#$02 




SUBA 


#'0' 




BLO 


LC8CA 




CMPA 


#$03 




BHI 


LC8CA 




STA 


DCDRV 




RTS 




* GRAB 


EXTENSION 


LC902 


BSR 


LC8C5 




LDX 


#DNAMBF+11 




LDA 


#SPACE 


LC909 


STA 


,-x 




CMPX 


#DEXTBF 




BNE 


LC909 


LC910 


DECB 






BEQ 


LC8ED 




LDA 


,u+ 




CMPA 


#' : ' 




BEQ 


LC8E6 




CMPX 


#DNAMBF+11 




BEQ 


LC8CA 




BSR 


LC922 




BRA 


LC910 


* INSERT CHARACTER INTO 1 


LC922 


STA 


,x+ 




BEQ 


LC8CA 




CMPA 


#' . ' 




BEQ 


LC8CA 




CMPA 


#'/' 




BEQ 


LC8CA 




INCA 






BEQ 


LC8CA 


LC931 


RTS 





TOGGLE DRIVE FLAG 

'BAD FILENAME' ERROR IF DRIVE NUMBER DEFINED TWICE 

ASCII VALUE OF DRIVE NUMBER TO ACCA 

DECREMENT STRING LENGTH BY 2 FOR DRIVE (:X) 

SUBTRACT ASCII BIAS 

DRIVE NUMBER TOO LOW - 'BAD FILENAME' ERROR 

MAX OF 4 DRIVES 

DRIVE NUMBER TOO HIGH - 'BAD FILENAME' ERROR 

STORE IN DSKCON DRIVE NUMBER 



'BAD FILENAME' ERROR IF NO FILENAME YET 
POINT X TO END OF EXTENSION BUFFER 
BLANK 

* FILL EXTENSION WITH 

* BLANKS (DEFAULT) 
DECREMENT STRING COUNTER 
RETURN IF ZERO 

GET A CHARACTER FROM STRING 
*CHECK FOR DRIVE SEPARATOR 

=CHECK FOR END OF ESTENSION RAM BUFFER & 
='BAD FILENAME' ERROR IF EXTENSION TOO LONG 
PUT A CHARACTER IN EXTENSION BUFFER 
GET ANOTHER EXTENSION CHARACTER 



STORE CHARACTER IN FILENAME BUFFER 



'BAD FILENAME' 

PERIOD? 

'BAD FILENAME' 

SLASH? 

'BAD FILENAME' 

CHECK FOR $FF 

'BAD FILENAME' 



ERROR; ZEROES ARE ILLEGAL 



ERROR IF PERIOD 



ERROR IF SLASH 



ERROR IF $FF 



* SAVE COMMAND 
SAVE CMPA #'M' 



LBEQ 


LCE8C 


BSR 


LC985 


LDX 


ZERO 


STX 


DFLTYP 


JSR 


GETCCH 


BEQ 


LC964 


JSR 


SYNCOMMA 


LDB 


#'A' 


JSR 


LB26F 


BNE 


LC931 


COM 


DASCFL 


BSR 


LC956 


CLRA 




JMP 


LIST 



OPEN A SEQUENTIAL FILE 
FCB LOCATED AT THE TOP 



LC956 


LDA 


#'0' 


LC958 


CMPX 


#$8649 


LC959 


LDA 


#T 




LDB 


FCBACT 




INCB 






STB 


DEVNUM 




JMP 


LC468 


* SAVE A CRUNCHED FILE 


* FILES: 


BYTE 


1 = $FF, 


LC964 


BSR 


LC956 




LDA 


#$FF 




JSR 


LCB52 




LDD 


VARTAB 




SUBD 


TXTTAB 




JSR 


LCB52 




TFR 


B,A 




JSR 


LCB52 




LDX 


TXTTAB 


LC979 


LDA 


,x+ 




JSR 


LCB52 




CMPX 


VARTAB 




BNE 


LC979 




JMP 


LA42D 


LC985 


LDX 


#BASEXT 




JMP 


LC88A 


* MERGE 


COMMAND 


MERGE 


CLRA 






LDB 


#$FF 




BRA 


LC9A2 


* RUN RAM VECTOR 


DVEC18 


CMPA 


#"" 




LBNE 


XVEC18 




LDA 


#$02 




BRA 


LC9A1 



♦BRANCH IF SAVEM 

GO GET FILENAME, ETC. FROM BASIC 

ZERO OUT X REG 

SET FILE TYPE AND ASCII FLAG TO ZERO 

GET CURRENT INPUT CHARACTER FROM BASIC 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA 

♦ASCII FILE? 

♦SYNTAX CHECK ON CONTENTS OF ACCB 

RETURN IF NO MORE CHARACTERS ON LINE 

SET CRUNCHED7ASCII FLAG TO ASCII 

OPEN A SEQUENTIAL FILE FOR OUTPUT 

SET ZERO FLAG - CAUSE ENTIRE FILE TO BE LISTED 

'LIST' THE FILE TO CONSOLE OUT 

FOR INPUT/OUTPUT - USE THE SYSTEM 
OF FCBS 

OUTPUT FILE TYPE 

SKIP TWO BYTES 

INPUT FILE TYPE 

GET NUMBER OF RESERVED FILES CURRENTLY RESERVED 

ADD ONE - USE ONE ABOVE HIGHEST RESERVED FCB 

SAVE IT IN DEVICE NUMBER 

OPEN A FILE S INITIALIZE FCB 
A PREAMBLE OF THREE BYTES WILL PRECEED CRUNCHED 
3 = LENGTH OF BASIC PROGRAM 

OPEN A SEQUENTIAL FILE FOR OUTPUT 

BASIC FILE FLAG 

CONSOLE OUT 

LOAD ACCD WITH START OF VARIABLES 

SUBTRACT START OF BASIC 

CONSOLE OUT FILE LENGTH MS BYTE 

PULL LS BYTE INTO ACCA 

CONSOLE OUT FILE LENGTH LS BYTE 

POINT X TO START OF BASIC 

GET BYTE FROM BASIC 

SEND TO CONSOLE OUT 

COMPARE TO END OF BASIC 

KEEP GOING IF NOT AT END 

CLOSE FILE 

POINT TO 'BAS' EXTENSION (DEFAULT) 

GET FILENAME. EXT FROM BASIC 



RUN FLAG (0 = DON'T RUN) 
MERGE FLAG ($FF = MERGE) 
GO LOAD THE FILE 



CHECK FOR FILENAME DELIMITER (DOUBLE QUOTE) 
NONE - JUMP TO EXBAS RUN RAM HOOK 
RUN FLAG - DON'T CLOSE ALL FILES BEFORE RUN 
LOAD THE FILE 
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1345 










1346 


C99A 


81 


4D 




1347 


C99C 


10 


27 


05 45 


1348 


C9A0 


4F 






1349 


C9A1 


5F 






1350 


C9A2 


B7 


09 


59 


1351 


C9A5 


F7 


09 


5E 


1352 


C9A8 


8D 


DB 




1353 


C9AA 


9D 


A5 




1354 


C9AC 


27 


10 




1355 


C9AE 


BD 


B2 


6D 


1356 


C9B1 


C6 


52 




1357 


C9B3 


BD 


B2 


6F 


1358 


C9B6 


BD 


A5 


C7 


1359 


C9B9 


86 


03 




1360 


C9BB 


B7 


09 


59 


1361 


C9BE 


8D 


99 




1362 


C9C0 


B6 


09 


58 


1363 


C9C3 


27 


0B 




1364 


C9C5 


7D 


09 


5E 


1365 


C9C8 


26 


03 




1366 


C9CA 


BD 


AD 


19 


1367 


C9CD 


7E 


AC 


7C 


1368 










1369 










1370 


C9D0 


B6 


09 


57 


1371 


C9D3 


BA 


09 


5E 


1372 


C9D6 


10 


26 


DC 3C 


1373 


C9DA 


BD 


AD 


19 


1374 


C9DD 


73 


09 


5D 


1375 










1376 


C9E0 


BD 


CC 


E2 


1377 


C9E3 


BD 


cc 


E2 


1378 


C9E6 


34 


02 




1379 


C9E8 


BD 


CC 


E2 


1380 


C9EB 


IF 


89 




1381 


C9ED 


35 


02 




1382 


C9EF 


D3 


19 




1383 


C9F1 


BD 


AC 


37 


1384 


C9F4 


9E 


19 




1385 


C9F6 


BD 


C5 


97 


1386 


C9F9 


D6 


70 




1387 


C9FB 


26 


04 




1388 


C9FD 


A7 


80 




1389 


C9FF 


20 


F5 




1390 










1391 


CA01 


7F 


09 


5D 


1392 


CA04 


9F 


IB 




1393 










1394 


CA06 


C6 


03 




1395 


CA08 


A6 


82 




1396 


CA0A 


26 


03 




1397 


CA0C 


5A 






1398 


CA0D 


26 


F9 




1399 


CA0F 


9E 


IB 




1400 


CA11 


9F 


IB 




1401 


CA13 


6F 


80 




1402 


CA15 


5A 






1403 


CA16 


2A 


F9 




1404 


CA18 


BD 


A4 


2D 


1405 


CA1B 


BD 


AD 


21 


1406 


CA1E 


BD 


82 


9C 


1407 


CA21 


BD 


AC 


EF 


1408 


CA24 


77 


09 


59 


1409 


CA27 


25 


03 




1410 


CA29 


BD 


A4 


26 


1411 


CA2C 


77 


09 


59 


1412 


CA2F 


10 


25 


E3 6B 


1413 


CA33 


7E 


AC 


73 


1414 










1415 


CA36 


0D 


6F 




1416 


CA38 


2E 


DE 




1417 


CA3A 


39 






1418 










1419 










1420 


CA3B 


F6 


09 


5B 


1421 


CA3E 


5C 






1422 


CA3F 


34 


04 




1423 


CA41 


D7 


6F 




1424 


CA43 


8D 


0E 




1425 


CA45 


35 


04 




1426 


CA47 


5A 






1427 


CA48 


26 


F5 




1428 


CA4A 


39 






1429 










1430 










1431 


CA4B 


0D 


6F 




1432 


CA4D 


10 


2F 


B8 35 


1433 


CA51 


32 


62 




1434 


CA53 


BD 


C7 


14 


1435 


CA56 


0F 


6F 




1436 


CA58 


9F 


Fl 




1437 


CA5A 


A6 


00 




1438 


CA5C 


27 


EC 




1439 


CA5E 


34 


02 




1440 


CA60 


6F 


00 





* LOAD 


COMMAND 


LOAD 


CMPA 


#'M' 




LBEO 


LCEE5 




CLRA 




LC9A1 


CLRB 




LC9A2 


STA 


DRUNFL 




STB 


DMRGFL 




BSR 


LC985 




JSR 


GETCCH 




BEQ 


LC9BE 




JSR 


SYNCOMMA 




LDB 


#'R' 




JSR 


LB26F 




JSR 


LA5C7 




LDA 


#$03 




STA 


DRUNFL 


LC9BE 


BSR 


LC959 




LDA 


DASCFL 




BEQ 


LC9D0 




TST 


DMRGFL 




BNE 


LC9CD 




JSR 


LAD19 


LC9CD 


JMP 


LAC7C 



* LOAD IN A CRUNCHED BASIC FILE 
LC9D0 LDA DFLTYP 

ORA DMRGFL 

LBNE LA616 

JSR LAD19 

COM DLODFL 



JSR 


LCCE2 


JSR 


LCCE2 


PSHS 


A 


JSR 


LCCE2 


TFR 


A,B 


PULS 


A 


ADDD 


TXTTAB 


JSR 


LAC37 


LDX 


TXTTAB 


JSR 


LC597 


LDB 


CINBFL 


BNE 


LCA01 


STA 


,x+ 


BRA 


LC9F6 



CA01 CLR DLODFL 
STX VARTAB 
MAKE SURE LAST THREE BYTES LOADED WERE ZERO 





LDB 


#$03 


LCA08 


LDA 


,-x 




BNE 


LCA0F 




DECB 






BNE 


LCA08 


LCA0F 


LDX 


VARTAB 


LCA11 


STX 


VARTAB 




CLR 


,x+ 




DECB 






BPL 


LCA11 


LCA18 


JSR 


LA42D 




JSR 


LAD21 




JSR 


XVEC18 




JSR 


LACEF 




ASR 


DRUNFL 




BLO 


LCA2C 




JSR 


LA426 


LCA2C 


ASR 


DRUNFL 




LBCS 


LAD9E 




JMP 


LAC73 


DVEC13 


TST 


DEVNUM 




BGT 


LCA18 




RTS 





* CLOSE ALL FILE BUFFERS RAM VECTOR 
DVEC7 LDB FCBACT 





INCB 




LCA3F 


PSHS 


B 




STB 


DEVNUM 




BSR 


LCA53 




PULS 


B 




DECB 






BNE 


LCA3F 


LCA4A 


RTS 




* CLOSE 


FILE 


1AM HOOK 


DVEC8 


TST 


DEVNUM 




LBLE 


XVEC8 




LEAS 


$02, S 


LCA53 


JSR 


LC714 




CLR 


DEVNUM 


LCA58 


STX 


FCBTMP 




LDA 


FCBTYP.X 




BEQ 


LCA4A 




PSHS 


A 




CLR 


FCBTYP.X 



♦BRANCH IF LOADM 

RUN FLAG = ZERO (DON'T RUN) 

CLEAR MERGE FLAG 

RUN FLAG (0 = DON'T RUN, 2 • RUN) 

MERGE FLAG (0 = NO MERGE, $FF = MERGE) 

GO GET FILENAME, ETC. FROM BASIC 

GET CURRENT INPUT CHAR 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA 

•IS NEXT CHAR 'R'? RUN AFTER LOAD 

SYNTAX ERROR IF ANY MORE CHARS ON LINE 

*SET FLAGS TO RUN AND CLOSE ALL FILES 

♦BEFORE THE FILE IS RUN 

GRAB FCB FOR INPUT FILE 

♦CHECK ASCII FLAG AND BRANCH 

•IF CRUNCHED BASIC FILE 

IS THIS A MERGE? 

BRANCH IF MERGE 

DO A 'NEW - ERASE VARIABLES, RESET VARIABLES 

GO TO BASIC'S MAIN LOOP, IT WILL LOAD PROGRAM 



*CHECK FILE TYPE (MUST BE BASIC:0) S CHECK 
•MERGE FLAG (MUST BE NO MERGE: 0) 
'BAD FILE MODE' ERROR IF MERGE OR NON-BASIC 
DO A 'NEW - RESET POINTERS, ERASE VARIABLES 

* SET THE LOAD FLAG TO $FF - THIS WILL CAUSE A NEW TO 

* OCCUR IF AN ERROR OCCURS WHILE THE PROGRAM IS BEING LOADED 
GET CHAR FROM BUFFER - SHOULD BE $FF 

GET ANOTHER - MS BYTE OF LENGTH 

SAVE MS BYTE ON STACK 

LS BYTE OF LENGTH OF PROGRAM 

PUT LS BYTE INTO ACCB 

NOW ACCD CONTAINS LENGTH OF PROGRAM 

ADD BEGINNING OF BASIC 

SEE OF ENOUGH ROOM IN RAM FOR THIS FILE 

GET START OF BASIC 

READ A CHAR FROM CONSOLE IN 

BUFFER EMPTY? 

BRANCH IF SO 

STORE CHAR 

GET ANOTHER CHARACTER 

CLEAR LOAD FLAG - LOAD WAS ERROR FREE 
SAVE NEW START OF VARIABLES 

CHECK THREE BYTES 

CHECK A BYTE 

BRANCH IF NON-ZERO 

DECREMENT COUNTER 

KEEP CHECKING IF NOT DONE 

GET START OF VARIABLES 

SAVE START OF VARIABLES 

CLEAR A BYTE 

DECREMRNT COUNTER 

KEEP CLEARING BYTES IF NOT DONE 

CLOSE SELECTED FILE 

DO PART OF NEW - ERASE VARIABLES, RESET INPUT PTR 

INITIALIZE EXBAS GRAPHICS VARIABLES 

RELOCATE ALL THE BASIC NEXT LINE POINTERS 

CHECK LSB OF RUN FLAG 

BRANCH IF DON'T CLOSE ALL FILES 

CLOSE ALL FILES 

TEST BIT 1 OF RUN FLAG 

BRANCH TO COMM INTERPRETATION LOOP IF BIT 1 SET 

RETURN TO DIRECT MODE 

* CHECK DEVICE NUMBER AND 

* TRY TO RUN FILE IF IT IS A DISK FILE 



GET THE NUMBER OF RESERVED FILE BUFFERS 

ADD ONE 

SAVE IT 

STORE IT IN DEVICE NUMBER 

CLOSE FILE 

GET BACK NUMBER OF FILE BUFFERS 

DECREMENT FILE BUFFER COUNTER 

BRANCH IF ALL FILES NOT CLOSED 



* CHECK DEVICE NUMBER AND RETURN 

* IF NOT A DISK FILE 

PURGE RETURN ADDRESS OFF OF THE STACK 

POINT X TO CORRECT FCB 

SET DEVICE NUMBER TO SCREEN 

SAVE FILE BUFFER POINTER 

GET THE TYPE OF THIS FILE 

RETURN IF FILE NOT OPEN 

SAVE FILE TYPE 

CLOSE THE FILE - ZERO OUT THE FILE TYPE 
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1441 


CA62 


E6 


01 


1442 


CA64 


D7 


EB 


1443 


CA66 


81 


20 


1444 


CA68 


26 


16 


1445 








1446 








1447 


CA6A 


E6 


88 18 


1448 


CA6D 


86 


80 


1449 








1450 


CA6F 


ED 


88 13 


1451 


CA72 


6C 


04 


1452 


CA74 


E6 


03 


1453 


CA76 


BD 


C7 25 


1454 


CA79 


A7 


01 


1455 


CA7B 


3A 




1456 


CA7C 


6C 


06 


1457 








1458 


CA7E 


20 


71 


1459 


CA80 


81 


40 


1460 


CA82 


26 


6D 


1461 








1462 








1463 


CA84 


EC 


09 


1464 


CA86 


AE 


0B 


1465 


CA88 


31 


8B 


1466 


CA8A 


34 


36 


1467 


CA8C 


DE 


IB 


1468 


CA8E 


11 


93 ID 


1469 


CA91 


27 


0E 


1470 


CA93 


A6 


41 


1471 


CA95 


33 


42 


1472 


CA97 


2A 


02 


1473 


CA99 


8D 


28 


1474 


CA9B 


33 


45 


1475 


CA9D 


20 


EF 


1476 


CA9F 


35 


40 


1477 


CAA1 


11 


93 IF 


1478 


CAA4 


27 


3A 


1479 


CAA6 


IF 


30 


1480 


CAA8 


E3 


42 


1481 


CAAA 


34 


06 


1482 


CAAC 


A6 


41 


1483 


CAAE 


2A 


EF 


1484 


CAB0 


E6 


44 


1485 


CAB2 


58 




1486 


CAB3 


CB 


05 


1487 


CAB5 


4F 




1488 


CAB6 


33 


CB 


1489 


CAB8 


11 


A3 E4 


1490 


CABB 


27 


E2 


1491 


CABD 


8D 


04 


1492 


CABF 


33 


45 


1493 


CAC1 


20 


F5 


1494 








1495 








1496 








1497 








1498 








1499 








1500 


CAC3 


AE 


42 


1501 


CAC5 


BC 


09 48 


1502 


CAC8 


24 


0E 


1503 


CACA 


AC 


64 


1504 


CACC 


25 


0B 


1505 








1506 


CACE 


AC 


66 


1507 


CAD0 


25 


07 


1508 


CAD2 


IF 


10 


1509 


CAD4 


A3 


62 


1510 


CAD6 


ED 


42 


1511 


CAD8 


39 




1512 


CAD9 


6F 


C4 


1513 


CADB 


6F 


42 


1514 


CADD 


6F 


43 


1515 


CADF 


39 




1516 








1517 


CAE0 


35 


56 


1518 








1519 








1520 








1521 








1522 








1523 








1524 








1525 








1526 








1527 








1528 








1529 








1530 








1531 


CAE2 


11 


B3 09 


1532 


CAE6 


27 


06 


1533 


CAE8 


A6 


C0 


1534 


CAEA 


A7 


80 


1535 


CAEC 


20 


F4 


1536 


CAEE 


BF 


09 48 



LDB 


FCBDRV.X 


STB 


DCDRV 


CMPA 


#OUTFIL 


BNE 


LCA80 


CLOSE A SEQUENTIAL OUTPUT FILE 


LDB 


FCBLFT.X 


LDA 


#$80 


STD 


FCBLST.X 


INC 


FCBSEC.X 


LDB 


FCBCGR.X 


JSR 


LC725 


STA 


FAT1.X 


ABX 




INC 


FATCON.X 



BRA LCAF1 
LCA80 CMPA #RANFIL 
BNE LCAF1 

* CLOSE A RANDOM FILE 



LCA9F 
LCAA1 



LDD 
LDX 

LEAY 

PSHS 

LDU 

CMPU 

BEQ 

LDA 

LEAU 

BPL 

BSR 

LEAU 

BRA 

PULS 

CMPU 

BEQ 

TFR 

ADDD 

PSHS 

LDA 

BPL 

LDB 

ASLB 

ADDB 

CLRA 

LEAU 

CMPU 

BEQ 

BSR 

LEAU 

BRA 



FCBRLN.X 
FCBBUF.X 
D,X 
V,X,B,A 

VARTAB 

ARYTAB 

LCAA1 

$01, U 

$02, U 

LCA9B 

LCAC3 

$05, U 

LCA8E 

U 

ARYEND 

LCAE0 

U,D 

$02, U 

B,A 

$01, U 

LCA9F 

$04, U 

#$05 

D,U 

,S 

LCA9F 

LCAC3 

$05, U 

LCAB8 



CHECK TO SEE IF A STRING IS LOCATED 
THE RANDOM FILE BUFFER IN QUESTION, 
FILE BUFFER SPACE THAN THE BUFFER I 
BUFFER WILL BE SUBTRACTED FROM THE 
BUFFER IS BEING DELETED (CLOSED). 



LCAC3 


LDX 


$02, U 




CMPX 


RNBFAD 




BHS 


LCAD8 




CMPX 


$04, S 




BLO 


LCAD9 




CMPX 


$06, S 




BLO 


LCAD9 




TFR 


X,D 




SUBD 


$02, S 




STD 


$02, U 


LCAD8 


RTS 




LCAD9 


CLR 


,u 




CLR 


$02, U 




CLR 


$03, U 




RTS 




*REMOVE 


RESERVED SPACE IN RANDOM FILE 


LCAE0 


PULS 


A,B,X,U 



* GET DRIVE NUMBER AND 

* SAVE IT IN DSKCON VARIABLE 
= CHECK FOR OUTPUT TYPE AND 

= BRANCH IF NOT OUTPUT TYPE FILE 



GET THE NUMBER OF CHARACTERS IN BUFFER 

* SET THE PRE-SAVED BIT TO INDICATE THAT THE DATA 

* HAS ALREADY BEEN SAVED ON DISK 

SAVE THE NUMBER OF BYTES USED IN THE LAST SECTOR 

INCREMENT THE SECTOR NUMBER 

GET THE CURRENT GRANULE NUMBER 

POINT X TO FILE ALLOCATION TABLE 

SET FAT DATA NOT VALID FLAG (ACCA <> 0) 

ADD GRANULE OFFSET TO FAT POINTER 

* INCREMENT GRANULE DATA (ADD ONE SECTOR TO LAST 

* GRANULE) SKIP PAST THE SIX FAT CONTROL BYTES 
UPDATE FAT AND DIRECTORY 

RANDOM FILE? 

NO - UPDATE FAT AND DIRECTORY 



GET RECORD LENGTH 

POINT X TO RANDOM FILE BUFFER 

POINT Y TO END OF RANDOM FILE BUFFER 

SAVE POINTERS ON STACK 

GET START OF VARIABLES 

COMPARE TO START OF ARRAYS 

BRANCH IF ALL VARIABLES CHECKED 

GET 2ND BYTE OF VARIABLE NAME 

MOVE POINTER TO START OF DESCRIPTOR 

BRANCH IF VARIABLE - NUMERIC 

ADJUST STRING VARIABLE IF IN RANDOM FILE BUFFER 

MOVE POINTER TO NEXT VARIABLE 

PROCESS ANOTHER VARIABLE 

GET ADDRESS OF NEXT ARRAY TO U 

COMPARE TO END OF ARRAYS 

BRANCH IF END OF ARRAYS 

* SAVE ARRAY START IN ACCD, ADD OFFSET 

* TO NEXT ARRAY AND SAVE ADDRESS OF 

* NEXT ARRAY ON THE STACK 

GET 2ND LETTER OF VARIABLE NAME 

BRANCH IF NUMERIC 

GET THE NUMBER OF DIMENSIONS 

X2:2 BYTES PER DIMENSION 

5 BYTES CONSTANT PER ARRAY DESCRIPTOR 

CLEAR MSB OF OFFSET - (ONLY 125 DIMENSIONS ALLOWED) 

POINT U TO START OF THIS ARRAY'S VARIABLES 

AT END OF THIS ARRAY? 

YES 

ADJUST STRING VARIABLE IF IN RANDOM FILE BUFFER 

MOVE POINTER TO NEXT DESCRIPTOR 

CHECK NEXT VARIABLE 

IN THE RANDOM FILE BUFFER AREA. IF IT IS 

IT WILL BE DELETED. IF IT IS HIGHER IN THE RANDOM 

N QUESTION, THE LENGTH OF THE CURRENT 

ADDRESS OF THE STRING BECAUSE THE CURRENT 

POINT X TO START OF STRING 

COMPARE TO START OF FREE RANDOM FILE BUFFER AREA 

RETURN IF > START OF FREE RANDOM FILE BUFFER AREA 

COMPARE TO START OF THIS FILE'S RANDOM BUFFER 

BRANCH IF < START OF THIS FILE'S RANDOM BUFFER 

** BUG ** THIS SHOULD BE A BRANCH TO A RETURN 

COMPARE TO END OF THIS FILE'S RANDOM BUFFER 

BRANCH IF < END OF THIS FILE'S RANDOM BUFFER 

SAVE POINTER IN ACCD 

SUBTRACT RECORD LENGTH FROM START OF STRING ADDRESS 

SAVE NEW START OF STRING ADDRESS 

CLEAR THE LENGTH OF THE STRING 

* CLEAR THE ADDRESS 

* OF THE STRING 

BUFFER FOR A 'CLOSED' RANDOM FILE 

*U = END OF RANDOM FILE BUFFER, X = START OF RANDOM 
♦FILE BUFFER, ACCD = RECORD LENGTH 



THIS WOULD PROBABLY BE THE MOST CONVENIENT PLACE TO FIX THE BUG WHICH 
CAUSES THE SYSTEM TO HANG IF AN ERROR IS ENCOUNTERED DURING 'COPY' 



CMPU FCBADR 

BLO LCAE2 

LDX #DFLBUF 

BRA LCAEE 

RANDOM FILE BUFFER AREA 



* IS THE END OF THIS FCB'S BUFFER ABOVE THE END 

* OF THE START OF THE FCB AREA 

NO - FREE UP THE SPACE USED BY THIS FILE IN RANDOM BUFFER 
YES - DOING A 'COPY'; RESET START OF RANDOM BUFFER 



REMOVE RESERVED SPACE FOR CLOSED FILE FROM RANDOM FILE BUFFER SPACE 



CMPU 


RNBFAD 


BEQ 


LCAEE 


LDA 


,u+ 


STA 


,x+ 


BRA 


LCAE2 


STX 


RNBFAD 



AT THE BOTTOM OF FREE RANDOM BUFFER AREA? 

BRANCH IF THERE 

= GRAB A SOURCE BYTE AND 

= MOVE IT TO DESTINATION 

KEEP MOVING BYTES 

SAVE NEW START OF FREE RANDOM BUFFER AREA 



DISK BASIC UNRAVELLED II 



APPENDIX C 
DISASSEMBLY OF DISK BASIC 1.0 



ORIGIN:SPECTRAL ASSOC 
REVISED: 12/26/1999 WALTER K ZYDHEK 



1537 


CAF1 


BD 


C7 


25 


1538 


CAF4 


6A 


00 




1539 


CAF6 


6D 


01 




1540 


CAF8 


27 


03 




1541 


CAFA 


BD 


C6 


Fl 


1542 


CAFD 


9E 


Fl 




1543 


CAFF 


35 


02 




1544 


CB01 


81 


20 




1545 


CB03 


27 


08 




1546 


CB05 


81 


40 




1547 


CB07 


26 


CF 




1548 


CB09 


A6 


0F 




1549 


CB0B 


27 


0A 




1550 










1551 










1552 


CB0D 


BD 


C7 


33 


1553 


CB10 


33 


88 


19 


1554 


CB13 


DF 


EE 




1555 


CB15 


8D 


2C 




1556 


CB17 


A6 


88 


13 


1557 


CB1A 


2A 


BC 




1558 


CB1C 


E6 


88 


12 


1559 


CB1F 


C4 


07 




1560 


CB21 


86 


20 




1561 


CB23 


3D 






1562 


CB24 


CE 


06 


00 


1563 


CB27 


DF 


EE 




1564 


CB29 


31 


CB 




1565 


CB2B 


E6 


88 


12 


1566 


CB2E 


54 






1567 


CB2F 


54 






1568 


CB30 


54 






1569 


CB31 


CB 


03 




1570 


CB33 


D7 


ED 




1571 


CB35 


CC 


11 


02 


1572 


CB38 


97 


EC 




1573 


CB3A 


8D 


09 




1574 


CB3C 


EC 


88 


13 


1575 


CB3F 


84 


7F 




1576 


CB41 


ED 


2E 




1577 


CB43 


C6 


03 




1578 


CB45 


D7 


EA 




1579 


CB47 


7E 


D5 


FF 


1580 










1581 










1582 


CB4A 


0D 


6F 




1583 


CB4C 


10 


2F 


B7 23 


1584 


CB50 


32 


62 




1585 










1586 










1587 


CB52 


34 


16 




1588 


CB54 


8E 


09 


26 


1589 


CB57 


D6 


6F 




1590 


CB59 


58 






1591 


CB5A 


AE 


85 




1592 


CB5C 


E6 


84 




1593 


CB5E 


CI 


10 




1594 


CB60 


27 


36 




1595 


CB62 


81 


0D 




1596 


CB64 


26 


02 




1597 


CB66 


6F 


06 




1598 


CB68 


81 


20 




1599 


CB6A 


25 


02 




1600 


CB6C 


6C 


06 




1601 


CB6E 


CI 


40 




1602 


CB70 


26 


1A 




1603 










1604 


CB72 


EC 


88 


17 


1605 


CB75 


C3 


00 


01 


1606 


CB78 


10 


A3 


09 


1607 


CB7B 


10 


22 


01 72 


1608 


CB7F 


ED 


88 


17 


1609 


CB82 


AE 


0B 




1610 


CB84 


30 


8B 




1611 


CB86 


35 


02 




1612 


CB88 


A7 


IF 




1613 


CB8A 


35 


94 




1614 










1615 










1616 


CB8C 


6C 


88 


18 


1617 


CB8F 


E6 


88 


18 


1618 


CB92 


27 


06 




1619 


CB94 


3A 






1620 


CB95 


A7 


88 


18 


1621 


CB98 


35 


96 




1622 










1623 










1624 


CB9A 


34 


60 




1625 


CB9C 


A7 


89 


01 18 


1626 


CBA0 


BD 


C6 


58 


1627 


CBA3 


E6 


01 




1628 


CBA5 


D7 


EB 




1629 


CBA7 


6C 


04 




1630 


CBA9 


BD 


CB 


0D 


1631 


CBAC 


31 


84 




1632 


CBAE 


E6 


03 





LCAF1 


JSR 


LC725 




DEC 


FAT0.X 




TST 


FAT1.X 




BEQ 


LCAFD 




JSR 


LC6F1 


LCAFD 


LDX 


FCBTMP 




PULS 


A 




CMPA 


#OUTFIL 




BEQ 


LCB0D 




CMPA 


#RANFIL 




BNE 


LCAD8 




LDA 


FCBFLG.X 




BEQ 


LCB17 


* WRITE 


CONTENTS OF Fl I 


LCB0D 


JSR 


LC733 




LEAU 


FCBCON.X 




STU 


DCBPT 




BSR 


LCB43 


LCB17 


LDA 


FCBLST.X 




BPL 


LCAD8 




LDB 


FCBDIR.X 




ANDB 


#$07 




LDA 


#DIRLEN 




MUL 






LDU 


#DBUF0 




STU 


DCBPT 




LEAY 


D,U 




LDB 


FCBDIR.X 




LSRB 






LSRB 






LSRB 






ADDB 


#$03 




STB 


DSEC 




LDD 


#$1102 




STA 


DCTRK 




BSR 


LCB45 




LDD 


FCBLST.X 




ANDA 


#$7F 




STD 


DIRLST.Y 


LCB43 


LDB 


#$03 


LCB45 


STB 


DCOPC 




JMP 


LD5FF 



* CONSOLE OUT RAM HOOK 
DVEC3 TST DEVNUM 

LBLE XVEC3 
LEAS $02, S 

* SEND A CHARACTER IN ACCA TO A DISK 

* PRINT POSITION AND CONTROL CODES UI 
LCB52 



PSHS 


X.B.A 


LDX 


SFCBV1-2 


LDB 


DEVNUM 


ASLB 




LDX 


B.X 


LDB 


FCBTYP.X 


CMPB 


#INPFIL 


BEQ 


LCB98 


CMPA 


#CR 


BNE 


LCB68 


CLR 


FCBPOS.X 


CMPA 


#SPACE 


BLO 


LCB6E 


INC 


FCBPOS.X 


CMPB 


#RANFIL 


BNE 


LCB8C 


BYTE 


INTO A RANDOM FILE 


LDD 


FCBPUT.X 


ADDD 


#$0001 


CMPD 


FCBRLN.X 


LBHI 


LCCF1 


STD 


FCBPUT.X 


LDX 


FCBBUF.X 


LEAX 


D.X 


PULS 


A 


STA 


-l.X 


PULS 


B.X.PC 



POINT X TO PROPER FILE ALLOCATION TABLE 

REMOVE ONE ACTIVE FILE 

NEW DATA IN FAT RAM IMAGE? 

NO 

WRITE OUT FILE ALLOCATION TABLE TO DISK 

GET FILE BUFFER POINTER 

GET FILE TYPE 

IS IT A SEQUENTIAL OUTPUT FILE? 

YES 

IS IT A RANDOM FILE? 

RETURN IF NOT A RANDOM FILE (SEQUENTIAL INPUT) 

* TEST THE GET/PUT FLAG AND 

* BRANCH IF 'GET' 



GET PROPER TRACK S SECTOR NUMBERS 

POINT U TO START OF FCB DATA 

SET UP FILE BUFFER POINTER FOR DSKCON 

GO WRITE A SECTOR 

CHECK THE PRE-SAVED FLAG 

RETURN IF RECORD HAS ALREADY BEEN SAVED ON DISK 

GET DIRECTORY NUMBER OF THIS FILE 

8 ENTRIES PER SECTOR 

DIRLEN BYTES PER DIRECTORY ENTRY 

GET SECTOR OFFSET FOR THIS ENTRY 

* GET READ/WRITE BUFFER AND 

* SAVE IT IN DSKCON REGISTER 

Y POINTS TO CORRECT DIRECTORY ENTRY 
GET DIRECTORY ENTRY NUMBER 



* DIVIDE BY 8; EIGHT DIRECTORY ENTRIES PER SECTOR 

ADD BIAS; FIRST 3 SECTORS NOT DIRECTORY 

STORE SECTOR NUMBER 

DIRECTORY TRACK - READ OP CODE 

STORE TRACK NUMBER 

GO READ DIRECTORY 

GET NUMBER OF BYTES IN THE LAST SECTOR 

MASK OFF THE PRE-SAVED FLAG 

SAVE NUMBER OF BYTES IN LAST SECTOR OF FILE IN DIRECTORY 

WRITE OP CODE 

SAVE DSKCON OP CODE VARIABLE 

GO READ/WRITE SECTOR 



CHECK DEVICE NUMBER 

BRANCH TO EX BASIC IF NOT A DISK FILE 

POP RETURN OFF STACK 
FILE. A CARRIAGE RETURN WILL RESET THE 
LL NOT INCREMENT THE PRINT POSITION. 

SAVE REGISTERS 

POINT X TO TABLE OF FILE NUMBER VECTORS 

GET CURRENT FILE NUMBER 

2 BYTES PER FCB ADDRESS 

POINT X TO PROPER FCB 

GET FILE TYPE 

IS IT AN INPUT FILE? 

RETURN IF SO 

CARRIAGE RETURN (ENTER) 

NO 

CLEAR PRINT POSITION IF CARRIAGE RETURN 

♦BRANCH IF CONTROL CHAR 
INCREMENT PRINT POSITION 
IS IT RANDOM FILE? 
BRANCH IF NOT RANDOM 

GET 'PUT' BYTE COUNTER 

ADD ONE 

COMPARE TO RECORD LENGTH 

'FR' ERROR IF 'PUT' BYTE COUNTER > RECORD LENGTH 

SAVE NEW 'PUT' BYTE COUNTER 

POINT TO RANDOM FILE BUFFER POINTER 

POINT TO ONE PAST END OF CURRENT RECORD DATA 

PULL DATA FROM STACK 

STORE IN DATA BUFFER 

RESTORE REGISTERS AND RETURN 



* WRITE A BYTE TO SEQUENTIAL OUTPUT FILE 
LCB8C INC FCBLFT.X 

LDB FCBLFT.X 

BEQ LCB9A 
ABX 

STA FCBCON-l.X 

LCB98 PULS A.B.X.PC 

* WRITE OUT A FULL BUFFER AND RESET BUFFER 



PSHS 


U.Y 


STA 


SECLEN+FCBCON-l.X 


JSR 


LC658 


LDB 


FCBDRV.X 


STB 


DCDRV 


INC 


FCBSEC.X 


JSR 


LCB0D 


LEAY 


,x 


LDB 


FCBCGR.X 



INCREMENT CHARACTER COUNT 

* GET CHARACTER COUNT AND BRANCH 

* IF THE BUFFER IS FULL 

ADD CHARACTER COUNT TO FCB ADDRESS 

STORE NEW CHARACTER (SKIP PAST 25 CONTROL BYTES AT FCB START) 



SAVE REGISTERS 

STORE LAST CHARACTER IN BUFFER 

INCREMENT RECORD NUMBER 

* GET DRIVE NUMBER AND SAVE 

* IT IN DSKCON CONTROL TABLE 
INCREMENT SECTOR NUMBER 
WRITE THE FILE BUFFER TO DISK 
SAVE FCB POINTER IN Y 

GET GRANULE NUMBER 



DISK BASIC UNRAVELLED II 



APPENDIX C 
DISASSEMBLY OF DISK BASIC 1.0 
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1633 


CBB0 


BD 


C7 


25 


1634 


CBB3 


3A 






1635 


CBB4 


33 


06 




1636 










1637 


CBB6 


A6 


24 




1638 


CBB8 


81 


09 




1639 


CBBA 


25 


08 




1640 


CBBC 


6F 


24 




1641 


CBBE 


BD 


C7 


8F 


1642 


CBC1 


A7 


23 




1643 


CBC3 


8C 


8A 


C0 


1644 


CBC4 


8A 


C0 




1645 


CBC6 


A7 


C4 




1646 


CBC8 


BD 


C5 


7C 


1647 


CBCB 


35 


60 




1648 


CBCD 


35 


96 




1649 










1650 










1651 


CBCF 


BD 


Dl 


62 


1652 


CBD2 


BD 


C7 


6D 


1653 


CBD5 


BD 


B9 


58 


1654 


CBD8 


CC 


11 


02 


1655 


CBDB 


97 


EC 




1656 


CBDD 


D7 


EA 




1657 


CBDF 


C6 


03 




1658 










1659 










1660 


CBE1 


D7 


ED 




1661 


CBE3 


8E 


06 


00 


1662 


CBE6 


9F 


EE 




1663 


CBE8 


BD 


D5 


FF 


1664 










1665 










1666 


CBEB 


35 


40 




1667 


CBED 


BD 


A5 


49 


1668 


CBF0 


34 


40 




1669 


CBF2 


A6 


84 




1670 


CBF4 


27 


38 




1671 


CBF6 


43 






1672 


CBF7 


27 


44 




1673 


CBF9 


34 


10 




1674 


CBFB 


C6 


08 




1675 


CBFD 


BD 


B9 


A2 


1676 


CC00 


8D 


3F 




1677 


CC02 


C6 


03 




1678 


CC04 


BD 


B9 


A2 


1679 


CC07 


8D 


38 




1680 


CC09 


E6 


00 




1681 


CC0B 


CI 


0A 




1682 


CC0D 


24 


02 




1683 


CC0F 


8D 


30 




1684 


ecu 


4F 






1685 


CC12 


BD 


BD 


CC 


1686 


CC15 


8D 


2A 




1687 


CC17 


AE 


E4 




1688 


CC19 


86 


42 




1689 


CC1B 


AB 


0C 




1690 


CC1D 


8D 


IF 




1691 


CC1F 


E6 


0D 




1692 


CC21 


8D 


21 




1693 


CC23 


IF 


89 




1694 


CC25 


4F 






1695 


CC26 


BD 


BD 


CC 


1696 


CC29 


BD 


B9 


58 


1697 


CC2C 


35 


10 




1698 


CC2E 


30 


88 


20 


1699 


CC31 


8C 


07 


00 


1700 


CC34 


25 


B5 




1701 


CC36 


D6 


ED 




1702 


CC38 


5C 






1703 


CC39 


CI 


12 




1704 


CC3B 


23 


A4 




1705 


CC3D 


39 






1706 


CC3E 


BD 


A2 


82 


1707 


CC41 


7E 


B9 


AC 


1708 










1709 










1710 










1711 


CC44 


BD 


C7 


25 


1712 


CC47 


33 


06 




1713 


CC49 


4F 






1714 


CC4A 


4C 






1715 


CC4B 


81 


44 




1716 


CC4D 


10 


22 


F9 D5 


1717 


CC51 


30 


C4 




1718 


CC53 


3A 






1719 


CC54 


E6 


84 




1720 


CC56 


CI 


C0 




1721 


CC58 


25 


F0 




1722 


CC5A 


39 






1723 










1724 










1725 


CC5B 


0D 


6F 




1726 


CC5D 


2F 


5E 




1727 


CC5F 


8E 


B0 


69 


1728 


CC62 


AF 


E4 







JSR 


LC725 




ABX 






LEAU 


FATCON.X 




LDA 


FCBSEC.Y 




CMPA 


#$09 




BLO 


LCBC4 




CLR 


FCBSEC.Y 




JSR 


LC78F 




STA 


FCBCGR.Y 


LCBC3 


CMPX 


#$8AC0 


LCBC4 


ORA 


#$C0 




STA 


,u 




JSR 


LC57C 




PULS 


Y,U 




PULS 


A,B,X,PC 


* DIR 


COMMAND 




DIR 


JSR 


LD162 




JSR 


LC76D 




JSR 


LB958 




LDD 


#$1102 




STA 


DCTRK 




STB 


DCOPC 




LDB 


#$03 



* READ A DIRECTORY SECTOR INTO THE I/O BUFFER 
LCBE1 STB DSEC 

LDX #DBUF0 

STX DCBPT 

JSR LD5FF 



SEND DIRECTORY INFORMATION TO CONSOLE OUT 



PULS 


U 


JSR 


LA549 


PSHS 


U 


LDA 


DIRNAM.X 


BEQ 


LCC2E 


COMA 




BEQ 


LCC3D 


PSHS 


X 


LDB 


#$08 


JSR 


LB9A2 


BSR 


LCC41 


LDB 


#$03 


JSR 


LB9A2 


BSR 


LCC41 


LDB 


FCBTYP.X 


CMPB 


#10 


BHS 


LCC11 


BSR 


LCC41 


CLRA 




JSR 


LBDCC 


BSR 


LCC41 


LDX 


,s 


LDA 


#'A'+1 


ADDA 


DIRASC.X 


BSR 


LCC3E 


LDB 


DIRGRN.X 


BSR 


LCC44 


TFR 


A,B 


CLRA 




JSR 


LBDCC 


JSR 


LB958 


PULS 


X 


LEAX 


DIRLEN.X 


CMPX 


#DBUF0+SECLEN 


BLO 


LCBEB 


LDB 


DSEC 


INCB 




CMPB 


#SECMAX 


BLS 


LCBE1 


RTS 




JSR 


LA282 


JMP 


LB9AC 



ENTER WITH ACCB POINT] 
GRANULES IN THE FILE j 



LCC44 


JSR 


LC725 




LEAU 


FATCON.X 




CLRA 




LCC4A 


INCA 






CMPA 


#GRANMX 




LBHI 


LC626 




LEAX 


,u 




ABX 






LDB 


,x 




CMPB 


#$C0 




BLO 


LCC4A 




RTS 




* INPUT 


RAM HOOK 


DVEC10 


TST 


DEVNUM 




BLE 


LCCBD 




LDX 


#LB069 




STX 


,s 



POINT X TO PROPER ALLOCATION TABLE 

ADD THE GRANULE NUMBER TO FAT POINTER 

♦POINT U TO THE CORRECT GRANULE IN FAT - SKIP PAST 

*THE SIX FAT CONTROL BYTES 

GET CURRENT SECTOR FOR THIS GRANULE 

MAX SECTOR NUMBER (9 SECTORS/GRANULE) 

BRANCH IF NOT AT END OF GRANULE 

CLEAR SECTOR NUMBER 

GET NEXT FREE GRANULE 

SAVE NEW GRANULE IN FCB 

SKIP TWO BYTES NO DATA STORED IN NEW SECTOR YET 

FORCE GRANULE NUMBER TO BE FINAL GRANULE IN FILE 

STORE IN MAP 

UPDATE FILE ALLOCATION TABLE 

RESTORE REGISTERS 

RESTORE REGISTERS AND RETURN 



SCAN DRIVE NUMBER FROM INPUT LINE 

GET FAT FOR THIS DRIVE 

PRINT CARRIAGE RETURN TO CONSOLE OUT 

* GET TRACK 17 AND 

* READ OP CODE AND 

* SAVE IN DSKCON VARIABLES 

START WITH SECTOR 3 (FIRST DIRECTORY SECTOR) 



SAVE SECTOR NUMBER IN DSKCON VARIABLE 

* USE I/O BUFFER FOR DATA TRANSFER 

* SAVE IN DSKCON VARIABLE 
READ A SECTOR 



SAVE TOP OF STACK 

GO DO A BREAK CHECK 

RESTORE STACK 

TEST FILE NAME FIRST BYTE 

BRANCH IF KILLED 

FF = END OF DIRECTORY 

RETURN IF END OF DIRECTORY 

SAVE DIRECTORY POINTER ON STACK 

NUMBER CHARACTERS TO PRINT 

SEND FILENAME TO CONSOLE OUT 

SEND BLANK TO CONSOLE OUT 

NUMBER CHARACTERS TO PRINT 

SEND EXTENSION TO CONSOLE OUT 

SEND BLANK TO CONSOLE OUT 

GET FILE TYPE 

* CHECK THE NUMBER OF DECIMAL DIGITS IN 

* ACCB: IF THERE IS ONLY ONE DIGIT, 

* SEND BLANK TO CONSOLE OUT 
CLEAR MS BYTE OF ACCO 

PRINT ACCD IN DECIMAL TO CONSOLE OUT 

SEND BLANK TO CONSOLE OUT 

X NOW POINTS TO DIRECTORY ENTRY 

ASCII BIAS 

ADD TO ASCII FLAG 

PRINT CHARACTER AND BLANK TO CONSOLE OUT 

GET FIRST GRANULE IN FILE 

COUNT GRANULES 

SAVE COUNT IN ACCB 

CLEAR MS BYTE OF ACCD 

PRINT ACCD IN DECIMAL TO CONSOLE OUT 

SEND CARRIAGE RETURN TO CONSOLE OUT 

PULL DIRECTORY POINTER OFF OF THE STACK 

MOVE X TO NEXT DIRECTORY ENTRY 

END OF I/O BUFFER? 

BRANCH IF MORE DIRECTORY ENTRIES IN BUFFER 

GET CURRENT SECTOR 

BUMP COUNT 

SECMAX SECTORS IN DIRECTORY TRACK 

GET NEXT SECTOR 

FINISHED 

SEND CHARACTER TO CONSOLE OUT 

SEND BLANK TO CONSOLE OUT 



NG TO FIRST GRANULE IN A FILE; RETURN THE NUMBER OF 
N ACCA, THE GRANULE DATA FOR THE LAST SECTOR IN ACCB 

POINT X TO FILE ALLOCATION BUFFER 
POINT U TO START OF GRANULE DATA 
RESET GRANULE COUNTER 
INCREMENT GRANULE COUNTER 
CHECKED ALL 68 GRANULES? 
YES - 'BAD FILE STRUCTURE' ERROR 
POINT U TO START OF GRANULE DATA 
ADD POINTER TO FIRST GRANULE 
GET THIS GRANULE'S CONTROL BYTE 
IS THIS THE LAST GRANULE IN FILE? 
NO - KEEP GOING 



* CHECK DEVICE NUMBER AND RETURN 

* IF NOT A DISK FILE 

« CHANGE THE RETURN ADDRESS ON THE STACK TO RE-ENTER BASIC'S 
= ROUTINE AT A DIFFERENT PLACE THAN THE CALLING ROUTINE 



DISK BASIC UNRAVELLED II 



APPENDIX C 
DISASSEMBLY OF DISK BASIC 1.0 



ORIGIN:SPECTRAL ASSOC 
REVISED: 12/26/1999 WALTER K ZYDHEK 



1729 


CC64 


8E 


02 


DD 


1730 


CC67 


C6 


2C 




1731 


CC69 


D7 


01 




1732 


CC6B 


96 


06 




1733 


CC6D 


26 


02 




1734 


CC6F 


C6 


20 




1735 


CC71 


8D 


6F 




1736 


CC73 


81 


20 




1737 


CC75 


27 


FA 




1738 


CC77 


81 


22 




1739 


CC79 


26 


0A 




1740 


CC7B 


CI 


2C 




1741 


CC7D 


26 


06 




1742 


CC7F 


IF 


89 




1743 


CC81 


D7 


01 




1744 


CC83 


20 


22 




1745 










1746 


CC85 


CI 


22 




1747 


CC87 


27 


11 




1748 


CC89 


81 


0D 




1749 


CC8B 


26 


0D 




1750 


CC8D 


8C 


02 


DD 


1751 


CC90 


27 


44 




1752 


CC92 


A6 


IF 




1753 


CC94 


81 


0A 




1754 


CC96 


26 


3E 




1755 


CC98 


86 


0D 




1756 


CC9A 


4D 






1757 


CC9B 


27 


17 




1758 


CC9D 


91 


01 




1759 


CC9F 


27 


ID 




1760 


CCA1 


34 


04 




1761 


CCA3 


Al 


E0 




1762 


CCA5 


27 


17 




1763 


CCA7 


A7 


80 




1764 


CCA9 


8C 


03 


D6 


1765 


CCAC 


26 


06 




1766 


CCAE 


8D 


46 




1767 


CCB0 


26 


06 




1768 


CCB2 


20 


IE 




1769 










1770 


CCB4 


8D 


40 




1771 


CCB6 


27 


CD 




1772 


CCB8 


6F 


84 




1773 


CCBA 


8E 


02 


DC 


1774 


CCBD 


39 






1775 










1776 










1777 


CCBE 


81 


22 




1778 


CCC0 


27 


04 




1779 


CCC2 


81 


20 




1780 


CCC4 


26 


F2 




1781 


CCC6 


8D 


2E 




1782 


CCC8 


26 


EE 




1783 


CCCA 


81 


20 




1784 


CCCC 


27 


F8 




1785 


CCCE 


81 


2C 




1786 


CCD0 


27 


E6 




1787 


CCD2 


81 


0D 




1788 


CCD4 


26 


08 




1789 


CCD6 


8D 


IE 




1790 


CCD8 


26 


DE 




1791 


CCDA 


81 


0A 




1792 


CCDC 


27 


DA 




1793 


CCDE 


8D 


1C 




1794 


CCE0 


20 


D6 




1795 










1796 


CCE2 


8D 


12 




1797 


CCE4 


27 


15 




1798 


CCE6 


BD 


C7 


14 


1799 


CCE9 


E6 


00 




1800 


CCEB 


CI 


40 




1801 


CCED 


10 


26 


F6 43 


1802 


CCF1 


C6 


4A 




1803 


CCF3 


7E 


AC 


46 


1804 










1805 


CCF6 


BD 


Al 


76 


1806 


CCF9 


0D 


70 




1807 


CCFB 


39 






1808 










1809 










1810 


CCFC 


34 


14 




1811 


CCFE 


BD 


C7 


14 


1812 


CD01 


E6 


00 




1813 


CD03 


CI 


40 




1814 


CD05 


26 


0B 




1815 


CD07 


EC 


88 


15 


1816 


CD0A 


83 


00 


01 


1817 


CD0D 


ED 


88 


15 


1818 


CD10 


35 


94 




1819 


CD12 


A7 


88 


11 


1820 


CD15 


63 


88 


10 


1821 


CD18 


35 


94 




1822 










1823 










1824 


CD1A 


BD 


B6 


54 



LDX 


#LINBUF+1 


LDB 


#' ,' 


STB 


CHARAC 


LDA 


VALTYP 


BNE 


LCC71 


LDB 


#SPACE 


BSR 


LCCE2 


CMPA 


#SPACE 


BEQ 


LCC71 


CMPA 


#"" 


BNE 


LCC85 


CMPB 


#' ,' 


BNE 


LCC85 


TFR 


A,B 


STB 


CHARAC 


BRA 


LCCA7 


CMPB 


#"" 


BEQ 


LCC9A 


CMPA 


#CR 


BNE 


LCC9A 


CMPX 


#LINBUF+1 


BEQ 


LCCD6 


LDA 


-1,X 


CMPA 


#LF 


BNE 


LCCD6 


LDA 


#CR 


BEQ 


LCCB4 


CMPA 


CHARAC 


BEQ 


LCCBE 


PSHS 


B 


CMPA 


,S+ 


BEQ 


LCCBE 


STA 


,x+ 


CMPX 


#LINBUF+LBUFMX 


BNE 


LCCB4 


BSR 


LCCF6 


BNE 


LCCB8 


BRA 


LCCD2 



LCCB4 BSR LCCF6 

BEQ LCC85 

LCCB8 CLR ,X 

LDX #LINBUF 

LCCBD RTS 



* CHECK 


FOR ITEM SEPARATOR 


LCCBE 


CMPA 


#"" 




BEQ 


LCCC6 




CMPA 


#SPACE 




BNE 


LCCB8 


LCCC6 


BSR 


LCCF6 




BNE 


LCCB8 




CMPA 


#SPACE 




BEQ 


LCCC6 




CMPA 


#' ,' 




BEQ 


LCCB8 


LCCD2 


CMPA 


#CR 




BNE 


LCCDE 


LCCD6 


BSR 


LCCF6 




BNE 


LCCB8 




CMPA 


#LF 




BEQ 


LCCB8 


LCCDE 


BSR 


LCCFC 




BRA 


LCCB8 


LCCE2 


BSR 


LCCF6 




BEQ 


LCCFB 




JSR 


LC714 




LDB 


FCBTYP.X 




CMPB 


#RANFIL 




LBNE 


LC334 


LCCF1 


LDB 


#2*37 




JMP 


LAC46 


LCCF6 


JSR 


LA176 




TST 


CINBFL 


LCCFB 


RTS 




* MOVE 


THE INPUT POINTER B; 


LCCFC 


PSHS 


X,B 




JSR 


LC714 




LDB 


FCBTYP.X 




CMPB 


#RANFIL 




BNE 


LCD12 




LDD 


FCBGET.X 




SUBD 


#$0001 




STD 


FCBGET.X 




PULS 


B.X.PC 


LCD12 


STA 


FCBCDT.X 




COM 


FCBCFL.X 




PULS 


B.X.PC 



POINT X TO THE LINE INPUT BUFFER 

=COMMA IS READ ITEM SEPARATOR (TEMPORARY STRING SEARCH FLAG) 

* GET VARIABLE TYPE AND BRANCH IF 

* IT IS A STRING 

SPACE = NUMERIC SEARCH DELIMITER 

GET AN INPUT CHARACTER 

SPACE? 

YES - GET ANOTHER CHARACTER 

QUOTE? 

NO 

SEARCH CHARACTER = COMMA? 

NO - NUMERIC SEARCH 

* SAVE DOUBLE QUOTE AS 

* THE SEARCH FLAG 

SAVE DOUBLE QUOTES AS FIRST ITEM IN BUFFER 



♦BRANCH IF INPUTTING A STRING VARIABLE 

IS THE INPUT CHARACTER A CARRIAGE RETURN 

NO 

•IF AT THE START OF INPUTBUFFER, CHECK FOR A 

♦FOLLOWING LINE FEED AND EXIT ROUTINE 

=IF THE INPUT CHARACTER PRECEEDING THE CR WAS A LINE FEED, 

=THEN INSERT THE CR IN THE INPUT STRING, OTHERWISE 

=CHECK FOR A FOLLOWING LINE FEED AND EXIT THE ROUTINE 

RESTORE CARRIAGE RETURN AS THE INPUT CHARACTER 

*CHECK FOR A NULL (ZERO) INPUT CHARACTER AND 

♦IGNORE IT IF IT IS A NULL 

=CHECK TO SEE IF THE INPUT CHARACTER MATCHES 

=EITHER ACCB OR CHARAC AND IF IT DOES, THEN 

=BRANCH TO CHECK FOR ITEM SEPARATOR OR 

=TERMINATOR SEQUENCE AND EXIT ROUTINE 

STORE NEW CHARACTER IN BUFFER 

END OF INPUT BUFFER 

NO 

GET A CHARACTER FROM CONSOLE IN 

EXIT ROUTINE IF BUFFER EMPTY 

CHECK FOR CR OR CR/LF AND EXIT ROUTINE 

GET A CHARACTER FROM CONSOLE IN 
BRANCH IF BUFFER NOT EMPTY 
PUT A ZERO AT END OF BUFFER WHEN DONE 
POINT (X) TO LINBUF - RESET POINTER 



OR TERMINATOR AND EXIT THE INPUT ROUTINE 
QUOTE? 
YES 

SPACE? 

NO - EXIT ROUTINE 
GET A CHARACTER FROM CONSOLE IN 
EXIT ROUTINE IF BUFFER EMPTY 
SPACE? 

YES - GET ANOTHER CHARACTER 
COMMA (ITEM SEPARATOR)? 
YES - EXIT ROUTINE 
CARRIAGE RETURN? 
NO 

GET A CHARACTER FROM CONSOLE IN 
EXIT ROUTINE IF BUFFER EMPTY 
LINE FEED? TREAT CR,LF AS A CR 
YES - EXIT ROUTINE 
BACK UP PTR INPUT POINTER ONE 
EXIT ROUTINE 

GET A CHAR FROM INPUT BUFFER - RETURN IN ACCA 

RETURN IF BUFFER NOT EMPTY 

POINT X TO START OF FILE BUFFER 

GET FILE TYPE 

IS IT RANDOM FILE TYPE? 

'INPUT PAST END OF FILE ERROR 

'WRITE/INPUT PAST END OF RECORD 

JUMP TO THE ERROR HANDLER 



NOT RANDOM 
ERROR IF RANDOM 



* CVN COMMAND 

CVN JSR LB654 



GET A CHAR FROM INPUT BUFFER 

SET FLAGS ACCORDING TO CONSOLE INPUT FLAG 



SAVE REGISTERS ON STACK 

POINT X TO PROPER FCB 

GET FILE TYPE OF THIS FCB 

IS IT A RANDOM FILE? 

BRANCH IF NOT A RANDOM FILE 

*GRAB THE RANDOM FILE 'GET' POINTER, 

*MOVE IT BACK ONE AND RESTORE IT 

* 

RESTORE REGISTERS AND RETURN 

SAVE THE CHARACTER IN THE CACHE 

SET THE CACHE FLAG TO $FF - DATA IN CACHE 

RESTORE REGISTERS AND RETURN 



GET LENGTH AND ADDRESS OF STRING 



DISK BASIC UNRAVELLED II 



APPENDIX C 
DISASSEMBLY OF DISK BASIC 1.0 



ORIGIN:SPECTRAL ASSOC 
REVISED: 12/26/1999 WALTER K ZYDHEK 



1825 


CD1D 


CI 


05 




1826 


CD1F 


10 


25 


E7 27 


1827 


CD23 


0F 


06 




1828 


CD25 


7E 


BC 


14 


1829 










1830 










1831 


CD28 


BD 


Bl 


43 


1832 


CD2B 


C6 


05 




1833 


CD2D 


BD 


B5 


0F 


1834 


CD30 


BD 


BC 


35 


1835 


CD33 


7E 


B6 


9B 


1836 










1837 










1838 


CD36 


8D 


05 




1839 


CD38 


EC 


07 




1840 


CD3A 


7E 


B4 


F4 


1841 










1842 










1843 










1844 










1845 


CD3D 


96 


6F 




1846 


CD3F 


34 


02 




1847 


CD41 


BD 


Bl 


43 


1848 


CD44 


BD 


A5 


AE 


1849 


CD47 


0D 


6F 




1850 


CD49 


10 


2F 


E6 FD 


1851 


CD4D 


BD 


C7 


14 


1852 


CD50 


35 


02 




1853 


CD52 


97 


6F 




1854 


CD54 


6D 


00 




1855 


CD56 


10 


27 


D6 Al 


1856 


CD5A 


39 






1857 










1858 










1859 


CD5B 


8D 


E0 




1860 


CD5D 


A6 


01 




1861 


CD5F 


97 


EB 




1862 


CD61 


E6 


02 




1863 


CD63 


34 


10 




1864 


CD65 


BD 


CC 


44 


1865 


CD68 


4A 






1866 


CD69 


C4 


3F 




1867 


CD6B 


34 


04 




1868 


CD6D 


IF 


89 




1869 


CD6F 


4F 






1870 


CD70 


BD 


C7 


49 


1871 


CD73 


EB 


E0 




1872 


CD75 


89 


00 




1873 


CD77 


35 


10 




1874 


CD79 


34 


02 




1875 


CD7B 


A6 


00 




1876 


CD7D 


81 


40 




1877 


CD7F 


35 


02 




1878 


CD81 


26 


B7 




1879 










1880 










1881 










1882 










1883 


CD83 


34 


10 




1884 


CD85 


93 


8A 




1885 


CD87 


27 


03 




1886 


CD89 


83 


00 


01 


1887 


CD8C 


8D 


AC 




1888 


CD8E 


D6 


4F 




1889 


CD90 


27 


04 




1890 


CD92 


CB 


08 




1891 


CD94 


D7 


4F 




1892 


CD96 


BD 


BC 


5F 


1893 


CD99 


AE 


E4 




1894 


CD9B 


EC 


88 


13 


1895 


CD9E 


84 


7F 




1896 


CDA0 


8D 


98 




1897 


CDA2 


0F 


62 




1898 


CDA4 


96 


5C 




1899 


CDA6 


D6 


4F 




1900 


CDA8 


BD 


B9 


C5 


1901 










1902 


CDAB 


BD 


BC 


5F 


1903 


CDAE 


35 


10 




1904 


CDB0 


EC 


09 




1905 


CDB2 


8D 


86 




1906 


CDB4 


0F 


62 




1907 


CDB6 


96 


5C 




1908 


CDB8 


D6 


4F 




1909 


CDBA 


BD 


BB 


91 


1910 


CDBD 


7E 


BC 


EE 


1911 










1912 










1913 


CDC0 


BD 


Bl 


43 


1914 


CDC3 


BD 


B7 


0E 


1915 


CDC6 


CI 


03 




1916 


CDC8 


10 


22 


D8 53 


1917 


CDCC 


D7 


EB 




1918 


CDCE 


BD 


C7 


6D 


1919 


CDD1 


BD 


C7 


25 


1920 


CDD4 


30 


06 







CMPB 


#$05 




LBCS 


LB44A 




CLR 


VALTYP 




JMP 


LBC14 


* MKN$ 


COMMAND 


MKN 


JSR 


LB143 




LDB 


#$05 




JSR 


LB50F 




JSR 


LBC35 




JMP 


LB69B 


* LOC 


COMMAND 




LOC 


BSR 


LCD3D 




LDD 


FCBREC.X 


LCD3A 


JMP 


GIVABF 



FIVE BYTES IN A FLOATING POINT NUMBER 

'FC' ERROR IF <> 5 BYTES 

SET VARIABLE TYPE TO NUMERIC 

COPY A PACKED FP NUMBER FROM (X) TO FPA0 



'TM' ERROR IF VALTYP=STRING 
FIVE BYTES IN A FLOATING POINT NUMBER 
RESERVE FIVE BYTES IN STRING SPACE 
PACK FPA0 AND STORE IT IN STRING SPACE 
SAVE STRING DESCRIPTOR ON STRING STACK 



POINT X TO FILE BUFFER 

GET RECORD NUMBER (RANDOM FILE) OR SECTOR CTR (SEQUENTIAL) 

PUT ACCD IN FPA0 



STRIP A DEVICE NUMBER FROM A BASIC STATEMENT, SET PRINT 
PARAMETERS ACCORDING TO IT - ERROR IF FILE NOT 
OPEN. RETURN WITH (X) POINTING TO THAT FILE'S FCB 



D3D LDA 


DEVNUM 




PSHS 


A 




JSR 


LB143 




JSR 


LA5AE 




TST 


DEVNUM 




LBLE 


LB44A 




JSR 


LC714 




PULS 


A 




STA 


DEVNUM 




TST 


FCBTYP, 


X 


LBEO 


LA3FB 




RTS 






LOF COMMAND 






>F BSR 


LCD3D 




LDA 


FCBDRV, 


X 


STA 


DCDRV 




LDB 


FCBFGR, 


X 


PSHS 


X 




JSR 


LCC44 




DECA 






ANDB 


#$3F 




PSHS 


B 




TFR 


A,B 




CLRA 






JSR 


LC749 




ADDB 


,s+ 




ADCA 


#$00 




PULS 


X 




PSHS 


A 




LDA 


FCBTYP, 


X 


CMPA 


#RANFIL 


PULS 


A 




BNE 


LCD3A 





CALCULATE LOF FOR A RANDOM FILE 
NUMBER OF RECORDS IN THE FILE. 

PSHS X 

SUBD ZERO 

BEQ LCD8C 

SUBD #$0001 



BSR 

LDB 

BEQ 

ADDB 

STB 

JSR 

LDX 

LDD 

ANDA 

BSR 

CLR 

LDA 

LDB 

JSR 



LCD3A 

FP0EXP 

LCD96 

#$08 

FP0EXP 

LBC5F 

,S 

FCBLST.X 

#$7F 

LCD3A 

RESSGN 

FP1EXP 

FP0EXP 

LB9C5 



JSR LBC5F 

PULS X 

LDD FCBRLN.X 
LCD3A 
RESSGN 
FP1EXP 
FP0EXP 
LBB91 
INT 



BSR 
CLR 

LDA 
LDB 
JSR 

JMP 



FREE COMMAND 



JSR LB143 

JSR LB70E 

CMPB #$03 

LBHI LA61F 

STB DCDRV 

JSR LC76D 

JSR LC725 

LEAX FATCON.X 



* GET CURRENT DEVICE NUMBER AND 

* SAVE IT ON THE STACK 

■TM' ERROR IF VALTYP=STRING 

CHECK FOR VALID DEVICE NUMBER/SET PRINT PARAMETERS 

* CHECK DEVICE NUMBER 

* BRANCH IF NOT DISK FILE 'ILLEGAL FUNCTION CALL' 
POINT (X) TO FILE BUFFER 

* GET OLD DEVICE NUMBER OFF OF THE STACK AND 

* SAVE IT AS DEVICE NUMBER 
IS FILE OPEN? 

'FILE NOT OPEN' ERROR IF NOT OPEN 



POINT X TO FILE BUFFER 

* GET DRIVE NUMBER AND SAVE IT 

* IN DSKCON VARIABLE 

GET FIRST GRANULE OF FILE 

SAVE FCB POINTER ON STACK 

FIND TOTAL NUMBER OF GRANULES IN THIS FILE 

SUBTRACT THE LAST GRANULE IN THE FILE 

GET NUMBER OF SECTORS USED IN LAST GRANULE 

SAVE NUMBER OF SECTORS IN LAST GRANULE ON STACK 

* CONVERT ACCA TO POSITIVE 

* 2 BYTE VALUE IN ACCD 

MULT NUMBER OF FULL GRANULES BY 9 
ADD NUMBER SECTORS IN LAST TRACK 
PROPAGATE CARRY TO MS BYTE OF ACCD 
GET FCB POINTER BACK 
SAVE ACCA ON STACK 

* GET FILE TYPE OF THIS FCB AND 

* CHECK TO SEE IF IT'S A RANDOM FILE 
RESTORE ACCA 

•IF NOT A RANDOM FILE, THEN THE TOTAL NUMBER OF SECTORS IN THE FILE 
*IS THE LENGTH OF THE FILE 

THE LENGTH OF A RANDOM FILE IS THE 

SAVE FCB POINTER ON STACK 

SUBTRACT ZERO FROM ACCD (NUMBER OF SECTORS) 

BRANCH IF ZERO SECTORS 

SUBTRACT ONE SECTOR - THE LAST SECTOR MAY NOT BE IOOZ USED 

PUT ACCD INTO FPA0 

GET EXPONENT OF FPA0 

BRANCH IF FPA0 = 

* ADD 8 TO EXPONENT (MULTIPLY FPA0 BY 

* 256 BYTES7SECTOR) AND SAVE NEW EXPONENT 
SAVE NUMBER OF BYTES IN FULL SECTORS IN FPA1 
POINT X TO FCB 

GET NUMBER OF BYTES IN LAST SECTOR 
MASK OFF THE PRE-SAVED BYTE 
PUT NUMBER BYTES IN LAST SECTOR INTO FPA0 
FORCE SUM SIGN = POSITIVE 

* GET EXPONENTS OF FPA0 AND 

* FPA1 PRIOR TO ADDITION 

=ADD NUMBER BYTES IN LAST SECTOR TO NUMBER OF 

=BYTES IN FULL SECTORS 

SAVE TOTAL NUMBER OF BYTES IN FPA1 

POINT X TO FCB 

* GET RECORD LENGTH 

* PUT IT INTO FPA0 

FORCE QUOTIENT SIGN = POSITIVE 

* GET EXPONENTS OF FPA0 AND 

* FPA1 PRIOR TO DIVISION 

DIVIDE TOTAL NUMBER OF BYTES BY NUMBER OF BYTES IN A RECORD 
CONVERT FPA0 TO AN INTEGER 



* NUMBER TYPE CHECK 

•EVALUATE NUMERIC EXPRESSION AND RETURN VALUE IN ACCB 

ONLY 4 LEGAL DRIVES 

•DEVICE NUMBER' ERROR IF DRIVE NUMBER IS > 3 

SAVE IN DRIVE NUMBER 

GET FILE ALLOCATION TABLE AND STORE IN BUFFER 

POINT X TO START OF FILE ALLOCATION TABLE BUFFER 

MOVE TO FIRST GRANULE DATA BYTE 



DISK BASIC UNRAVELLED II 



APPENDIX C 
DISASSEMBLY OF DISK BASIC 1.0 



ORIGIN:SPECTRAL ASSOC 
REVISED: 12/26/1999 WALTER K ZYDHEK 



1921 


CDD6 


6F 


E2 




1922 


CDD8 


C6 


44 




1923 


CDDA 


A6 


80 




1924 


CDDC 


43 






1925 


CDDD 


26 


02 




1926 


CDDF 


6C 


E4 




1927 


CDE1 


5A 






1928 


CDE2 


26 


F6 




1929 


CDE4 


35 


04 




1930 


CDE6 


7E 


B4 


F3 


1931 










1932 










1933 


CDE9 


BD 


B7 


0B 


1934 


CDEC 


CI 


03 




1935 


CDEE 


10 


22 


D8 2D 


1936 


CDF2 


F7 


09 


5A 


1937 


CDF5 


39 






1938 










1939 










1940 


CDF6 


A6 


64 




1941 


CDF8 


26 


13 




1942 










1943 


CDFA 


AE 


65 




1944 


CDFC 


8C 


AF 


9A 


1945 


CDFF 


26 


0C 




1946 


CE01 


AE 


62 




1947 


CE03 


8C 


Bl 


66 


1948 


CE06 


26 


05 




1949 


CE08 


8E 


CE 


10 


1950 


CE0B 


AF 


65 




1951 


CE0D 


7E 


88 


46 


1952 










1953 










1954 


CE10 


35 


02 




1955 


CE12 


46 






1956 


CE13 


BD 


Bl 


48 


1957 


CE16 


10 


27 


EE 19 


1958 


CE1A 


9E 


52 




1959 


CE1C 


EC 


02 




1960 


CE1E 


10 


83 


09 89 


1961 


CE22 


25 


07 




1962 


CE24 


B3 


09 


4A 


1963 


CE27 


10 


25 


El 86 


1964 










1965 


CE2B 


7E 


AF 


A4 


1966 










1967 










1968 


CE2E 


81 


CA 




1969 


CE30 


27 


1C 




1970 


CE32 


81 


C8 




1971 


CE34 


10 


26 


B3 04 


1972 










1973 


CE38 


9D 


9F 




1974 


CE3A 


81 


2C 




1975 


CE3C 


10 


27 


C8 10 


1976 


CE40 


BD 


B7 


0B 


1977 


CE43 


CI 


04 




1978 


CE45 


10 


22 


E6 01 


1979 


CE49 


96 


BC 




1980 


CE4B 


7E 


96 


2E 


1981 










1982 










1983 


CE4E 


BD 


A4 


29 


1984 


CE51 


9D 


9F 




1985 


CE53 


7E 


8C 


IB 


1986 










1987 


CE56 


CI 


34 




1988 


CE58 


10 


26 


B3 0C 


1989 


CE5C 


BD 


B2 


62 


1990 


CE5F 


96 


6F 




1991 


CE61 


34 


02 




1992 


CE63 


BD 


A5 


AE 


1993 


CE66 


BD 


A4 


06 


1994 


CE69 


0D 


6F 




1995 


CE6B 


2F 


13 




1996 


CE6D 


BD 


C7 


14 


1997 


CE70 


E6 


00 




1998 


CE72 


CI 


40 




1999 


CE74 


26 


0A 




2000 


CE76 


35 


02 




2001 


CE78 


97 


6F 




2002 


CE7A 


EC 


88 


17 


2003 


CE7D 


7E 


B4 


F4 


2004 


CE80 


BD 


A3 


5F 


2005 


CE83 


35 


02 




2006 


CE85 


97 


6F 




2007 


CE87 


D6 


6C 




2008 


CE89 


7E 


B4 


F3 


2009 










2010 










2011 


CE8C 


9D 


9F 




2012 


CE8E 


8D 


4F 




2013 


CE90 


BD 


83 


6C 


2014 


CE93 


BD 


83 


6C 


2015 


CE96 


AC 


62 




2016 


CE98 


10 


25 


E5 AE 



CLR 


,-s 


LDB 


#GRANMX 


LDA 


,x+ 


COMA 




BNE 


LCDE1 


INC 


,s 


DECB 




BNE 


LCDDA 


PULS 


B 


JMP 


LB4F3 


:ommai 

JSP. 


(D 
EVALEXPB 


CMPB 


#$03 


LBHI 


LA61F 


STB 


DEFDRV 


RTS 





* EVALUATE EXPRESSION RAM VECTOR 
DVEC15 LDA $04, S 
BNE LCE0D 





LDX 


$05, S 




CMPX 


#LAF9A 




BNE 


LCE0D 




LDX 


$02, S 




CMPX 


#LB166 




BNE 


LCE0D 




LDX 


#LCE10 




STX 


$05, S 


E0D 


JMP 


XVEC15 


LET 


MODIFIER 


E10 


PULS 

RORA 


A 




JSR 


LB148 




LBEQ 


LBC33 




LDX 


FPA0+2 




LDD 


$02, X 




CMPD 


#DFLBUF 




BLO 


LCE2B 




SUBD 


FCBADR 




LBCS 


LAFB1 


E2B 


JMP 


LAFA4 



'MODIFIER FOR EXBAS COMMAND 
DXCVEC CMPA #$CA 

BEQ LCE4E 

CMPA #$C8 

LBNE L813C 



DISK BASIC 


10DIFIER FOR PMODE 


JSR 


GETNCH 


CMPA 


#' ,' 


LBEQ 


L9650 


JSR 


EVALEXPB 


CMPB 


#$04 


LBHI 


LB44A 


LDA 


GRPRAM 


JMP 


L962E 



* DISK BASIC DLOAD MODIFIER 
LCE4E JSR LA429 

JSR GETNCH 

JMP L8C1B 



DXIVEC 



CMPB 

LBNE 

JSR 

LDA 

PSHS 

JSR 

JSR 

TST 

BLE 

JSR 

LDB 

CMPB 

BNE 

PULS 

STA 

LDD 

JMP 

JSR 

PULS 

STA 

LDB 

JMP 



#($9A-$80)*2 

L8168 

LB262 

DEVNUM 

A 

LA5AE 

LA406 

DEVNUM 

LCE80 

LC714 

FCBTYP.X 

#RANFIL 

LCE80 

A 

DEVNUM 

FCBPUT.X 

GIVABF 

LA35F 

A 

DEVNUM 

DEVPOS 

LB4F3 



SPACE FOR FREE GRANULE COUNTER 

GET MAXIMUM NUMBER OF GRANULES 

GET GRANULE DATA 

*FREE GRANULES $FF 

♦BRANCH IF NOT FREE 

INCREMENT FREE GRANULE COUNTER 

DECREMENT GRANULE COUNTER 

BRANCH IF NOT DONE 

GET FREE GRANULE COUNTER TO ACCB 

LOAD ACCB INTO FPA0 



EVALUATE EXPR; RETURN VALUE IN ACCB 
MAX DRIVE NUMBER = 3 
'DEVICE #' ERROR IF DRIVE NUMBER > 3 
SAVE DEFAULT DRIVE NUMBER 



= CHECK STACKED PRECEDENCE FLAG AND IF IT IS NOT AN END 
= OF OPERATION, BRANCH TO EXTENDED BASIC'S EXPRESSION 
= EVALUATION ROUTINE 



* CHECK TWO RETURN ADDRESSES BACK ON THE STACK 

* TO SEE IF THE CALL TO EVALUATE EXPRESSION IS 

* COMING FROM THE 'LET' COMMAND - BRANCH OUT IF 

* NOT COMING FROM 'LET' 

= IF COMING FROM 'LET', REPLACE THE RETURN ADDR 
= WITH THE DISK BASIC 'LET' MODIFIER ADDRESS 
EXTENDED BASIC EXPRESSION EVALUATION 



PULL VARIABLE TYPE OFF OF THE STACK 

SET CARRY IF SIRING, CLEAR CARRY IF NUMERIC 

DO A 'TM' CHECK 

IF NUMERIC VARIABLE, PACK FPA0 INTO VARDES 

POINT X TO STRING DESCRIPTOR 

GET ADDRESS OF SIRING 

* COMPARE TO START OF RANDOM FILE BUFFERS 

* AND BRANCH IF LOWER 

SUBTRACT OUT THE END OF RANDOM FILE BUFFERS 
♦BRANCH IF STRING STORED IN RANDOM FILE BUFFER 
♦MOVE IT INTO THE STRING SPACE 
BRANCH BACK TO BASIC S 'LET' COMMAND 

NTERPRETATION HANDLER 

TOKEN FOR DLOAD? 
YES 

TOKEN FOR PMODE? 
NO 
ALLOWS FOR THE RAM THE DOS USES 

GET NEXT CHARACTER FROM BASIC 

CHECK FOR COMMA 

BRANCH IF COMMA 

EVALUATE EXPRESSION; RETURN VALUE IN ACCB 

CHECK FOR PMODE 4 

'FC ERROR IF PMODE > 4 

NUMBER BLOCKS BEFORE GRAPHICS PAGES 

JUMP TO EXEAS' PMODE COMMAND 



CLOSE FILES 

GET NEXT CHARACTER FROM BASIC 

JUMP TO EXEAS' DLOAD 

MODIFIED TOKEN FOR POS 

IF NOT POS, GO TO EXBAS SECONDARY COMM HANDLER 

SYNTAX CHECK FOR '(' AND EVALUATE EXPRESSION 

* GET DEVICE NUMBER AND 

* SAVE IT ON STACK 
EVALUATE DEVICE NUMBER 
TEST DEVICE NUMBER 

* CHECK DEVICE NUMBER AND BRANCH 



* IF NOT A DISK 

POINT X TO FCB 
GET FILE TYPE 
DIRECT/RANDOM F] 
BRANCH IF NOT A 



FILE 



LE? 

RANDOM FILE 



* SAVEM COMMAND 
LCE8C JSR GETNCH 
BSR 

JSR 
JSR 



LCEDF 
L836C 
L836C 



CMPX $02, S 
LBCS LB44A 



* RESTORE DEVICE NUMBER 

=GRAB THE 'PUT' DATA ITEM COUNTER AND CONVERT 
■IT TO A FLOATING POINT NUMBER 
SET PRINT PARAMETERS 

* RESTORE DEVICE NUMBER 

=GET PRINT POSITION AND 

=CONVERT IT TO FLOATING POINT NUMBER IN FPA0 



GET NEXT INPUT CHARACTER 

GET FILENAME, ETC. 

EVALUATE EXPRESSION, PUT II (2 BYTES) ON STACK 

DITTO 

COMPARE END ADDRESS TO START ADDRESS 

IF START > END, THEN 'ILLEGAL FUNCTION CALL' 



DISK BASIC UNRAVELLED II 



APPENDIX C 
DISASSEMBLY OF DISK BASIC 1.0 



ORIGIN:SPECTRAL ASSOC 
REVISED: 12/26/1999 WALTER K ZYDHEK 



2017 


CE9C 


BD 


83 


6C 




JSR 


L836C 


2018 


CE9F 


BD 


A5 


C7 




JSR 


LA5C7 


2019 


CEA2 


CC 


02 


00 




LDD 


#$0200 


2020 


CEA5 


FD 


09 


57 




STD 


DFLTYP 


2021 


CEA8 


BD 


C9 


56 




JSR 


LC956 


2022 


CEAB 


4F 








CLRA 




2023 


CEAC 


8D 


2B 






BSR 


LCED9 


2024 


CEAE 


EC 


62 






LDD 


$02, S 


2025 


CEB0 


A3 


64 






SUBD 


$04, S 


2026 


CEB2 


C3 


00 


01 




ADDD 


#$0001 


2027 


CEB5 


IF 


02 






TFR 


D,Y 


2028 


CEB7 


8D 


IE 






BSR 


LCED7 


2029 


CEB9 


EC 


64 






LDD 


$04, S 


2030 


CEBB 


8D 


1A 






BSR 


LCED7 


2031 


CEBD 


AE 


64 






LDX 


$04, S 


2032 


CEBF 


A6 


80 




LCEBF 


LDA 


,x+ 


2033 


CEC1 


BD 


CB 


52 




JSR 


LCB52 


2034 


CEC4 


31 


3F 






LEAY 


-l.Y 


2035 


CEC6 


26 


F7 






BNE 


LCEBF 


2036 


CEC8 


86 


FF 






LDA 


#$FF 


2037 


CECA 


8D 


0D 






BSR 


LCED9 


2038 


CECC 


4F 








CLRA 




2039 


CECD 


5F 








CLRB 




2040 


CECE 


8D 


07 






BSR 


LCED7 


2041 


CED0 


35 


36 






PULS 


A,B,X,Y 


2042 


CED2 


8D 


03 






BSR 


LCED7 


2043 


CED4 


7E 


A4 


2D 




JMP 


LA42D 


2044 
















2045 










* WRITE 


ACCD ' 


ro THE BUFFER 


2046 


CED7 


8D 


00 




LCED7 


BSR 


LCED9 


2047 


CED9 


BD 


CB 


52 


LCED9 


JSR 


LCB52 


2048 


CEDC 


IE 


89 






EXG 


A,B 


2049 


CEDE 


39 








RTS 




2050 


CEDF 


8E 


C2 


97 


LCEDF 


LDX 


#BINEXT 


2051 


CEE2 


7E 


C8 


8A 




JMP 


LC88A 


2052 
















2053 










* LOADM 


COMMAND 


2054 


CEE5 


9D 


9F 




LCEE5 


JSR 


GETNCH 


2055 


CEE7 


8D 


F6 






BSR 


LCEDF 


2056 


CEE9 


BD 


C9 


59 




JSR 


LC959 


2057 


CEEC 


FC 


09 


57 




LDD 


DFLTYP 


2058 


CEEF 


83 


02 


00 




SUBD 


#$0200 


2059 


CEF2 


10 


26 


D7 20 




LBNE 


LA616 


2060 


CEF6 


9E 


8A 






LDX 


ZERO 


2061 


CEF8 


9D 


A5 






JSR 


GETCCH 


2062 


CEFA 


27 


06 






BEQ 


LCF02 


2063 


CEFC 


BD 


B2 


6D 




JSR 


SYNCOMMA 


2064 


CEFF 


BD 


B7 


3D 




JSR 


LB73D 


2065 


CF02 


9F 


[13 




LCF02 


STX 


VD3 


2066 


CF04 


BD 


A5 


C7 




JSR 


LA5C7 


2067 
















2068 










* GET PREAMBLE/POSTAMBLE 


2069 


CF07 


BD 


CC 


E2 


LCF07 


JSR 


LCCE2 


2070 


CF0A 


34 


02 






PSHS 


A 


2071 


CF0C 


8D 


29 






BSR 


LCF37 


2072 


CF0E 


IF 


02 






TFR 


D,Y 


2073 


CF10 


8D 


25 






BSR 


LCF37 


2074 


CF12 


D3 


D3 






ADDD 


VD3 


2075 


CF14 


DD 


9D 






STD 


EXECJP 


2076 


CF16 


IF 


01 






TFR 


D,X 


2077 


CF18 


A6 


E0 






LDA 


,S+ 


2078 


CF1A 


10 


26 


D5 0F 




LBNE 


LA42D 


2079 
















2080 










* GET RECORD I 


JYTE(S) 


2081 


CF1E 


BD 


C5 


97 


LCF1E 


JSR 


LC597 


2082 


CF21 


D6 


70 






LDB 


CINBFL 


2083 


CF23 


27 


03 






BEQ 


LCF28 


2084 


CF25 


7E 


C3 


34 




JMP 


LC334 


2085 


CF28 


A7 


84 




LCF28 


STA 


,x 


2086 


CF2A 


Al 


80 






CMPA 


,x+ 


2087 


CF2C 


27 


03 






BEQ 


LCF31 


2088 


CF2E 


7E 


D6 


16 




JMP 


LD616 


2089 


CF31 


31 


3F 




LCF31 


LEAY 


-1,Y 


2090 


CF33 


26 


E9 






BNE 


LCF1E 


2091 


CF35 


20 


[10 






BRA 


LCF07 


2092 










* READ TWO BYTES FROM BUFFER 


2093 


CF37 


8D 


00 




LCF37 


BSR 


LCF39 


2094 


CF39 


BD 


CC 


E2 


LCF39 


JSR 


LCCE2 


2095 


CF3C 


IE 


89 






EXG 


A,B 


2096 


CF3E 


39 








RTS 




2097 
















2098 










* RENAME COMMAND 


2099 


CF3F 


9E 


A6 




RENAME 


LDX 


CHARAD 


2100 


CF41 


34 


10 






PSHS 


X 


2101 


CF43 


8D 


35 






BSR 


LCF7A 


2102 


CF45 


96 


EB 






LDA 


DCDRV 


2103 


CF47 


34 


02 






PSHS 


A 


2104 


CF49 


8D 


2A 






BSR 


LCF75 


2105 


CF4B 


35 


02 






PULS 


A 


2106 


CF4D 


91 


EB 






CMPA 


DCDRV 


2107 


CF4F 


10 


26 


E4 F7 




LBNE 


LB44A 


2108 


CF53 


8D 


28 






BSR 


LCF7D 


2109 


CF55 


35 


10 






PULS 


X 


2110 


CF57 


9F 


A6 






STX 


CHARAD 


2111 


CF59 


8D 


IF 






BSR 


LCF7A 


2112 


CF5B 


BD 


C6 


5F 




JSR 


LC65F 



EVAL EXPRESSION (TRANSFER ADDRESS), PUT ON STACK 
SYNTAX ERROR IF ANY MORE CHARS ON THIS LINE 

* FILE TYPE=2, ASCII FLAG = CRUNCHED (0) 

GET NEXT UNOPEN FILE AND INITIALIZE FCB 

*ZERO FLAG - FIRST BYTE OF PREAMBLE 

*WRITE A BYTE TO BUFFER 

GET END ADDRESS 

SUBTRACT THE START ADDRESS 

THE SAVED DATA BLOCK WILL INCLUDE BOTH THE FIRST AND LAST BYTES 

SAVE LENGTH IN Y 

WRITE FILE LENGTH TO BUFFER - FIRST ARGUMENT OF PREAMBLE 

GET THE START ADDRESS 

WRITE OUT THE START ADDRESS 

GET START ADDRESS 

GRAB A BYTE 

WRITE IT OUT 

DECREMENT BYTE COUNTER 

BRANCH IF ALL BYTES NOT DONE 

FIRST BYTE OF POSTAMBLE 

WRITE IT OUT - EOF RECORD 

* FIRST ARGUMENT OF POSTAMBLE IS 

* A DUMMY - ZERO VALUE 
WRITE OUT POSTAMBLE FIRST ARGUMENT 
GET CONTROL ADDRESSES FROM THE STACK 
WRITE OUT THE TRANSFER ADDRESS - 2ND ARGUMENT 
GO CLOSE ALL FILES 



SECOND PREAMBLE ARGUMENT 



WRITE ACCA TO BUFFER, 
WRITE ACCA TO BUFFER 
SWAP ACCA, ACCB 



THEN SWAP ACCA, ACCB 



POINT TO .BIN EXTENSION 
GET FILENAME, ETC. 



GET NEXT INPUT CHARACTER 

GET FILENAME, ETC. 

OPEN NEXT AVAILABLE FILE FOR INPUT 

GET FILE TYPE AND ASCII FLAG 

FOR LOADM FILE: TYPE=2, ASCII FLAG=0 

'BAD FILE MODE' ERROR 

ZERO OUT X REG - DEFAULT VALUE OF OFFSET 

GET CURRENT CHARACTER FROM BASIC 

BRANCH IF END OF LINE - NO OFFSET 

SYNTAX CHECK FOR COMMA 

EVALUATE EXPRESSION 

STORE OFFSET IN VD3 

SYNTAX ERROR IF OTHER CHARACTERS ON LINE 



GET FIRST BYTE 

SAVE IT ON THE STACK 

GET FIRST ARGUMENT 

SAVE IT IN Y 

GET THE SECOND ARGUMENT 

ADD IT TO THE OFFSET 

STORE IT IN THE JUMP ADDRESS OF THE EXEC COMMAND 

SAVE IT IN X 

GET THE FIRST BYTE OFF OF THE STACK 

CLOSE FILE IF POSTAMBLE (EOF) 



GET BYTE FROM BUFFER 
GET STATUS OF CONSOLE IN BUFFER 
BRANCH IF BUFFER NOT EMPTY 
'INPUT PAST END OF FILE' ERROR 
STORE BYTE IN MEMORY 

*TEST TO SEE IF IT STORED PROPERLY AND 
♦BRANCH IF PROPER STORE (NOT IN ROM OR BAD RAM) 
'I/O ERROR' IF BAD STORE 
DECREMENT BYTE COUNT 
GET NEXT BYTE IF NOT DONE 
READ ANOTHER PRE/POST AMBLE 
RETURN THEM IN ACCD 

READ A BYTE, SAVE IT IN ACCB 

GET A CHARACTER FROM INPUT BUFFER, RETURN IT IN ACCA 

SWAP ACCA, ACCB 



* SAVE CURRENT INPUT POINTER 

* ON THE STACK 

GET FILENAME OF SOURCE FILE 

* SAVE DRIVE NUMBER 

* ON THE STACK 

SYNTAX CHECK FOR 'TO' AND GET NEW FILENAME 

GET SOURCE DRIVE NUMBER 

COMPARE TO NEW FILE DRIVE NUMBER 

'FC ERROR IF F1IES ON DIFFERENT DRIVES 

VERIFY THAT NEW FILE DOES NOT ALREADY EXIST 

* RESTORE INPUT POINTER 



GET SOURCE FILENAME AGAIN 

SCAN DIRECTORY FOR SOURCE FILENAME 



DISK BASIC UNRAVELLED II 
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2113 


CF5E 


BD 


C6 


B8 


2114 


CF61 


8D 


12 




2115 


CF63 


8E 


09 


4C 


2116 


CF66 


FE 


09 


74 


2117 


CF69 


C6 


0B 




2118 


CF6B 


BD 


A5 


9A 


2119 


CF6E 


C6 


03 




2120 


CF70 


D7 


EA 




2121 


CF72 


7E 


D5 


FF 


2122 










2123 










2124 


CF75 


C6 


A5 




2125 


CF77 


BD 


B2 


6F 


2126 


CF7A 


7E 


C8 


87 


2127 


CF7D 


BD 


C6 


5F 


2128 


CF80 


C6 


42 




2129 


CF82 


7D 


09 


73 


2130 


CF85 


10 


26 


DC BD 


2131 


CF89 


39 






2132 










2133 










2134 


CF8A 


10 


27 


E9 CA 


2135 


CF8E 


8D 


03 




2136 


CF90 


0F 


6F 




2137 


CF92 


39 






2138 


CF93 


81 


23 




2139 


CF95 


26 


0F 




2140 


CF97 


BD 


A5 


A5 


2141 


CF9A 


BD 


A4 


06 


2142 


CF9D 


9D 


A5 




2143 


CF9F 


10 


27 


E9 B5 


2144 


CFA3 


BD 


B2 


6D 


2145 


CFA6 


BD 


Bl 


56 


2146 


CFA9 


96 


06 




2147 


CFAB 


26 


IE 




2148 


CFAD 


BD 


BD 


D9 


2149 


CFB0 


BD 


B5 


16 


2150 


CFB3 


BD 


B9 


9F 


2151 










2152 










2153 


CFB6 


9D 


A5 




2154 


CFB8 


10 


27 


E9 9C 


2155 


CFBC 


86 


2C 




2156 


CFBE 


BD 


A3 


5F 


2157 


CFC1 


0D 


6E 




2158 


CFC3 


27 


02 




2159 


CFC5 


86 


0D 




2160 


CFC7 


8D 


14 




2161 


CFC9 


20 


D8 




2162 










2163 










2164 


CFCB 


8D 


07 




2165 


CFCD 


BD 


B9 


9F 


2166 


CFD0 


8D 


02 




2167 


CFD2 


20 


E2 




2168 










2169 










2170 


CFD4 


BD 


A3 


5F 


2171 


CFD7 


0D 


6E 




2172 


CFD9 


26 


B7 




2173 


CFDB 


86 


22 




2174 


CFDD 


7E 


A2 


82 


2175 










2176 










2177 


CFE0 


BD 


C7 


FE 


2178 


CFE3 


4F 






2179 


CFE4 


5F 






2180 


CFE5 


34 


16 




2181 


CFE7 


9D 


A5 




2182 


CFE9 


26 


02 




2183 


CFEB 


35 


96 




2184 


CFED 


BD 


B7 


38 


2185 


CFF0 


34 


14 




2186 










2187 










2188 










2189 










2190 


CFF2 


4F 






2191 


CFF3 


E3 


63 




2192 


CFF5 


25 


07 




2193 


CFF7 


AE 


65 




2194 


CFF9 


10 


A3 


09 


2195 


CFFC 


23 


05 




2196 


CFFE 


C6 


44 




2197 


D000 


7E 


AC 


46 


2198 


D003 


EE 


63 




2199 


D005 


ED 


63 




2200 


D007 


EC 


0B 




2201 


D009 


33 


CB 




2202 


D00E 


EF 


61 




2203 


D00D 


C6 


FF 




2204 


D00F 


BD 


B2 


6F 


2205 


D012 


C6 


A7 




2206 


D014 


BD 


B2 


6F 


2207 


D017 


BD 


B3 


57 


2208 


D01A 


BD 


Bl 


46 





JSR 


LC6B8 




BSR 


LCF75 




LDX 


#DNAMBF 




LDU 


V974 




LDB 


#11 




JSR 


LA59A 




LDB 


#$03 




STB 


DCOPC 




JMP 


LD5FF 


* DO A : 


SYNTAX 


CHECK FOR 'TO 


LCF75 


LDB 


#$A5 




JSR 


LB26F 


LCF7A 


JMP 


LC887 


LCF7D 


JSR 


LC65F 




LDB 


#33*2 




TST 


V973 




LBNE 


LAC46 




RTS 




* WRITE 


COMMAND 


WRITE 


LBEQ 


LB958 




BSR 


LCF93 




CLR 


DEVNUM 


LCF92 


RTS 




LCF93 


CMPA 


#'#' 




BNE 


LCFA6 




JSR 


LA5A5 




JSR 


LA406 




JSR 


GETCCH 




LBEQ 


LB958 


LCFA3 


JSR 


SYNCOMMA 


LCFA6 


JSR 


LB156 




LDA 


VALTYP 




BNE 


LCFCB 




JSR 


LBDD9 




JSR 


LB516 




JSR 


LB99F 


* PRINT 


ITEM 


SEPARATOR TO COI 


LCFB6 


JSR 


GETCCH 




LBEQ 


LB958 




LDA 


#' ,' 




JSR 


LA35F 




TST 


PRTDEV 




BEQ 


LCFC7 




LDA 


#CR 


LCFC7 


BSR 


LCFDD 




BRA 


LCFA3 


* PRINT 


A STRING TO CONSOLE I 


LCFCB 


BSR 


LCFD4 




JSR 


LB99F 




BSR 


LCFD4 




BRA 


LCFB6 


* PRINT 


STRING DELIMITER (") 


LCFD4 


JSR 


LA35F 




TST 


PRTDEV 




BNE 


LCF92 




LDA 


#"" 


LCFDD 


JMP 


LA282 


* FIELD 


COMMAND 


FIELD 


JSR 

CLRA 

CLRB 


LC7FE 




PSHS 


X,B,A 


LCFE7 


JSR 


GETCCH 




BNE 


LCFED 




PULS 


A,B,X,PC 


LCFED 


JSR 


LB738 




PSHS 


X,B 


* AT THIS POINT THE STACK WI 


* ,S » 1 


"IELD 


LENGTH 1 2,S i 


* 3 4,5 


= TOTAL FIELD LENGTH 




CLRA 






ADDD 


$03, S 




BLO 


LCFFE 




LDX 


$05, S 




CMPD 


FCBRLN.X 




BLS 


LD003 


LCFFE 


LDB 


#34*2 




JMP 


LAC46 


LD003 


LDU 


$03, S 




STD 


$03, S 




LDD 


FCBBUF.X 




LEAU 


D,U 




STU 


$01, S 




LDB 


#$FF 




JSR 


LB26F 




LDB 


#$A7 




JSR 


LB26F 




JSR 


LB357 




JSR 


LB146 



•NE' ERROR IF NOT FOUND 

SYNTAX CHECK FOR 'TO' AND GET NEW FILENAME 

POINT X TO FILENAME 

POINT U TO DIRECTORY ENTRY OF SOURCE FILE 

11 CHARACTERS IN FILENAME AND EXTENSION 

COPY NEW FILENAME TO SOURCE FILE DIRECTORY RAM IMAGE 

* GET WRITE OP CODE AND 

* SAVE IN DSKCON VARIABLE 
WRITE NEW DIRECTORY SECTOR 



AND STRIP A FILENAME FROM BASIC 



'TO' TOKEN 

SYNTAX CHECK FOR 'TO' 

GET FILENAME FROM BASIC 

SCAN DIRECTORY FOR FILENAME 

'FILE ALREADY EXISTS' ERROR 

CHECK FOR A MATCH 

■AE' ERROR IF FILE IN DIRECTORY 



PRINT CARRIAGE RETURN TO CONSOLE OUT IF END OF LINE 

GO WRITE AN ITEM LIST 

SET DEVICE NUMBER TO SCREEN 

CHECK FOR DEVICE NUMBER FLAG 

DEFAULT TO CURRENT DEVICE NUMBER IF NONE GIVEN 

SET DEVICE NUMBER; CHECK VALIDITY 

MAKE SURE SELECTED FILE IS AN OUTPUT FILE 

GET CURRENT INPUT CHARACTER 

PRINT CR TO CONSOLE OUT IF END OF LINE 

SYNTAX CHECK FOR COMMA 

EVALUATE EXPRESSION 

GET VARIABLE TYPE 

BRANCH IF STRING 

CONVERT FP NUMBER TO ASCII STRING 

PUT ON TEMPORARY STRING STACK 

PRINT STRING TO CONSOLE OUT 



GET CURRENT CHARACTER 

PUT CR TO CONSOLE OUT IF END OF LINE 

COMMA: NON-CASSETTE SEPARATOR 

SET PRINT PARAMETERS 

* GET CONSOLE PRINT DEVICE AND 

* BRANCH IF NOT CASSETTE 

GET CARRIAGE RETURN - CASSETTE ITEM SEPARATOR 
SEND SEPARATOR TO CONSOLE OUT 
GET NEXT ITEM 



PRINT LEADING STRING DELIMITER (") 
PRINT STRING TO CONSOLE OUT 
PRINT ENDING STRING DELIMITER (") 
GO PRINT SEPARATOR 



SET PRINT PARAMETERS 

* GET CONSOLE PRINT DEVICE AND 

* RETURN IF CASSETTE 

QUOTE: NON-CASSETTE STRING DELIMITER 
SEND TO CONSOLE OUT 



EVALUATE DEVICE NUMBER S VERIFY RANDOM FILE OPEN 

* CLEAR TOTAL FIELD LENGTH COUNTER 

SAVE FCB POINTER S INITIALIZE TOTAL FIELD LENGTH TO ZERO 
GET CURRENT INPUT CHARACTER 
BRANCH IF NOT END OF LINE 
CLEAN UP STACK AND RETURN 

SYNTAX CHECK FOR COMMA, EVALUATE EXPRESSION 
*SAVE FIELD LENGTH (ACCB) ON STACK, X IS A DUMMY WHICH WILL 
♦RESERVE 2 BYTES FOR THE ADDRESS WHICH WILL BE CALCULATED BELOW 

LL HAVE THE FOLLOWING INFORMATION ON IT: 
= RANDOM FILE BUFFER ADDRESS 
5 6,S = FCD POINTER 

CLEAR MS BYTE 

ADD FIELD LENGTH TO TOTAL FIELD LENGTH COUNTER 

'FO' ERROR IF SUM > $FFFF 

POINT X TO FCB 

* COMPARE TO RECORD LENGTH & BRANCH IF 
*TOTAL FIELD LENGTH < RECORD LENGTH 
'FIELD OVERFLOW ERROR 
JUMP TO ERROR DRIVER 

LOAD U WITH OLD TOTAL LENGTH OF ALL FIELDS 
SAVE NEW TOTAL FIELD LENGTH 
POINT ACCD TO START OF RANDOM FILE BUFFER 
*POINT U TO THIS FIELD'S SLOT IN THE RANDOM 
*FILE BUFFER AND SAVE IT ON THE STACK 
SECONDARY TOKEN 

SYNTAX CHECK FOR SECONDARY TOKEN 
'AS' TOKEN 

SYNTAX CHECK FOR 'AS' TOKEN 
EVALUATE VARIABLE 
'TM' ERROR IF NUMERIC VARIABLE 



) TO CONSOLE OUT 
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2209 


D01D 


35 


44 






PULS 


B,U 




2210 


D01F 


E7 


84 






STB 


,x 




2211 


D021 


EF 


02 






STU 


$02, X 




2212 


D023 


20 


C2 






BRA 


LCFE7 




2213 


















2214 










* RSET 


COMMAND 




2215 


D025 


86 


4F 




RSET 


LDA 


#$4F 




2216 


















2217 










* LSET 


COMMAND 




2218 


D026 


4F 






LSET 


CLRA 






2219 


D027 


34 


02 






PSHS 


A 




2220 


D029 


BD 


B3 


57 




JSR 


LB357 




2221 


D02C 


BD 


Bl 


46 




JSR 


LB146 




2222 


D02F 


34 


10 






PSHS 


X 




2223 


D031 


AE 


02 






LDX 


$02, X 




2224 


D033 


8C 


09 


89 




CMPX 


#DFLBUF 




2225 


D036 


25 


05 






BLO 


LD03D 




2226 


D038 


BC 


09 


4A 




CMPX 


FCBADR 




2227 


D03B 


25 


05 






BLO 


LD042 




2228 


D03D 


C6 


46 




LD03D 


LDB 


#2*35 




2229 


D03F 


7E 


AC 


46 




JMP 


LAC46 




2230 


D042 


C6 


B3 




LD042 


LDB 


#$B3 




2231 


D044 


BD 


B2 


6F 




JSR 


LB26F 




2232 


D047 


BD 


87 


48 




JSR 


L8748 




2233 










* 








2234 


D04A 


35 


20 






PULS 


Y 




2235 


D04C 


A6 


A4 






LDA 


,Y 




2236 


D04E 


27 


2E 






BEQ 


LD07E 




2237 


D050 


34 


04 






PSHS 


B 




2238 


D052 


C6 


20 






LDB 


#SPACE 




2239 


D054 


EE 


22 






LDU 


$02, Y 




2240 










* FILL 


THE FIELDED STRING WITH BLANKS 


2241 


D056 


E7 


C0 




LD056 


STB 


,u+ 




2242 


D058 


4A 








DECA 






2243 


D059 


26 


FB 






BNE 


LD056 




2244 


D05B 


E6 


E0 






LDB 


,s+ 




2245 


D05D 


27 


IF 






BEQ 


LD07E 




2246 


D05F 


El 


A4 






CMPB 


,Y 




2247 


D061 


25 


04 






BLO 


LD067 




2248 


D063 


E6 


A4 






LDB 


,Y 




2249 


D065 


6F 


E4 






CLR 


,s 




2250 










* 








2251 










* 








2252 


D067 


EE 


22 




LD067 


LDU 


$02, Y 




2253 


D069 


6D 


E0 






TST 


,s+ 




2254 


D06B 


27 


0E 






BEQ 


LD07B 




2255 










* RSET 


ROUTINE 




2256 


D06D 


34 


04 






PSHS 


B 




2257 


D06F 


4F 








CLRA 






2258 


D070 


50 








NEGB 






2259 


D071 


82 


00 






SBCA 


#$00 




2260 


D073 


EB 


A4 






ADDB 


,Y 




2261 


D075 


89 


00 






ADCA 


#$00 




2262 


D077 


33 


CB 






LEAU 


D,U 




2263 


















2264 


















2265 


D079 


35 


04 






PULS 


B 




2266 


D07B 


7E 


A5 


9A 


LD07B 


JMP 


LA59A 




2267 


D07E 


35 


82 




LD07E 


PULS 


A, PC 




2268 


















2269 










* FILES COMMAND 




2270 


D080 


BD 


95 


AC 


FILES 


JSR 


L95AC 




2271 


D083 


FC 


09 


4A 




LDD 


FCBADR 




2272 


D086 


83 


09 


89 




SUBD 


#DFLBUF 




2273 


D089 


34 


06 






PSHS 


B,A 




2274 


D08B 


F6 


09 


5B 




LDB 


FCBACT 




2275 


D08E 


34 


04 






PSHS 


B 




2276 


D090 


9D 


A5 






JSR 


GETCCH 




2277 


D092 


81 


2C 






CMPA 


#' ,' 




2278 


D094 


27 


0F 






BEQ 


LD0A5 




2279 


D096 


BD 


B7 


0B 




JSR 


EVALEXPB 




2280 


D099 


CI 


0F 






CMPB 


#15 




2281 


D09B 


10 


22 


E3 AB 




LBHI 


LB44A 




2282 


D09F 


E7 


E4 






STB 


,s 




2283 


D0A1 


9D 


A5 






JSR 


GETCCH 




2284 


D0A3 


27 


0B 






BEQ 


LD0B0 




2285 


D0A5 


BD 


B2 


6D 


LD0A5 


JSR 


SYNCOMMA 




2286 


D0A8 


BD 


B3 


E6 




JSR 


LB3E6 




2287 


D0AB 


C3 


00 


01 




ADDD 


#$0001 




2288 


D0AE 


ED 


61 






STD 


$01, S 




2289 


D0B0 


BD 


CA 


3B 


LD0B0 


JSR 


DVEC7 




2290 


D0B3 


E6 


E4 






LDB 


,S 




2291 


D0B5 


34 


04 






PSHS 


B 




2292 


D0B7 


CC 


09 


89 




LDD 


#DFLBUF 




2293 


D0BA 


E3 


62 






ADDD 


$02, S 




2294 


D0BC 


25 


5D 






BLO 


LD11B 




2295 


D0BE 


ED 


62 






STD 


$02, S 




2296 










* RESERVE SPACE FOR FCBS 




2297 


D0C0 


C3 


01 


19 


LD0C0 


ADDD 


#FCBLEN 




2298 


D0C3 


25 


56 






BLO 


LD11B 




2299 


D0C5 


6A 


E4 






DEC 


,s 




2300 


D0C7 


2A 


F7 






BPL 


LD0C0 




2301 










* 








2302 










* 








2303 










* 








2304 


D0C9 


5D 








TSTB 







* PULL STRING ADDRESS AND LENGTH 

* OFF OF THE STACK AND SAVE THEM 

* IN STRING DESCRIPTOR 

CHECK FOR ANOTHER FIELD SPECIFICATION 



SKIP ONE BYTE 



LSET FLAG = 

SAVE RSET($4F),LSET(00) FLAG ON THE STACK 

EVALUATE FIELD STRING VARIABLE 

'TM' ERROR IF NUMERIC VARIABLE 

SAVE STRING DESCRIPTOR ON STACK 

POINT X TO ADDRESS OF STRING 

* COMPARE STRING ADDRESS TO START OF RANDOM 

* FILE BUFFER; 'SE' ERROR IF < RANDOM FILE BUFFER 

= COMPARE STRING ADDRESS TO TOP OF RANDOM FILE BUFFER 
= AREA - BRANCH IF STRING IN RANDOM FILE BUFFER 
'SET TO NON-FIELDED STRING' ERROR 
JUMP TO ERROR HANDLER 

* SYNTAX CHECK FOR '=' TOKEN 

=EVALUATE DATA STRING EXPRESSION; RETURN WITH X 

=POINTING TO STRING; ACCB = LENGTH 

POINT Y TO FIELD STRING DESCRIPTOR 

GET LENGTH OF FIELD STRING 

RETURN IF NULL STRING 

SAVE LENGTH OF DATA STRING ON STACK 

PREPARE TO FILL DATA STRING WITH BLANKS 

POINT U TO FIELD STRING ADDRESS 

STORE A SPACE IN FIELDED STRING 

DECREMENT LENGTH COUNTER 

KEEP FILLING W/SPACES IF NOT DONE 

*GET THE LENGTH OF THE DATA STRING AND 

♦RETURN IF IT IS NULL (ZERO) 

=COMPARE LENGTH OF DATA STRING TO LENGTH OF FIELD 

=STRING, BRANCH IF FIELD STRING > DATA STRING 

*GET THE LENGTH OF THE FIELD STRING AND FORCE THE 

♦RSET/LSET FLAG TO LSET (0) IF DATA STRING LENGTH IS 

*>= THE FIELD STRING LENGTH. THIS WILL CAUSE THE RIGHT 

*SIDE OF THE DATA STRING TO BE TRUNCATED 

LOAD U WITH THE ADDRESS OF THE FIELD STRING 

* GET THE RSET/LSET FLAG FROM THE STACK 

* AND BRANCH IF LSET 

SAVE THE NUMBER OF BYTES TO MOVE INTO THE FIELD STRING 

= TAKE THE 2'S COMPLEMENT OF AN UNSIGNED 

= NUMBER IN ACCB - LEAVE THE DOUBLE BYTE SIGNED 

= RESULT IN ACCD 

* ADD THE LENGTH OF THE FIELD STRING TO THE INVERSE 

* OF THE NUMBER OF BYTES TO BE MOVED 

=ADD RESULT TO START OF FIELD STRING. NOW U 

=WILL POINT TO (-NUMBER OF BYTES TO MOVE) 

=FROM THE RIGHT SIDE OF THE FIELD STRING 

GET THE NUMBER OF BYTES TO MOVE 

MOVE ACCB BYTES FROM X TO U (DATA TO FIELD STRING) 

PULL LSET/RSET FLAG OFF OF STACK AND RETURN 



RESET SAM DISPLAY PAGE AND VDG MODE 

GET START OF FILE BUFFERS 

SUBTRACT THE START OF RANDOM FILE BUFFER SPACE 

SAVE DEFAULT VALUE OF RANDOM FILE BUFFER SPACE ON STACK 

* GET CURRENT NUMBER OF FCBS 

* AND SAVE ON THE STACK (DEFAULT VALUE) 
GET CURRENT INPUT CHAR 

CHECK FOR COMMA 

BRANCH IF COMMA - NO BUFFER NUMBER PARAMETER GIVEN 

EVALUATE EXPRESSION (BUFFER NUMBER) 

15 FCBS MAX 

BRANCH IF > 15 - 'ILLEGAL FUNCTION CALL' 

SAVE NUMBER OF FCBS ON STACK 

CHECK CURRENT INPUT CHAR 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA 

EVALUATE EXPRESSION, RETURN VALUE IN ACCD 

ADD ONE BYTE 

SAVE RANDOM FILE BUFFER SIZE ON STACK 

CLOSE FILES 

* GET THE NUMBER OF BUFFERS TO MAKE AND 

* INITIALIZE A BUFFER COUNTER ON THE STACK 
GET START OF RANDOM FILE BUFFERS 

ADD THE NEWLY SPECIFIED RANDOM FILE BUFFER SPACE 
'OUT OF MEMORY' ERROR IF > $FFFF 
SAVE START OF FCBS 

FCBLEN REQUIRED FOR EACH BUFFER 

'OUT OF MEMORY' ERROR IF > $FFFF 

DECREMENT BUFFER COUNTER 

*BRANCH IF NOT DONE - THE BPL WILL SET UP ONE MORE BUFFER 

*THAN THE NUMBER REQUESTED. THIS EXTRA BUFFER IS THE SYSTEM BUFFER 

*AND IS LOCATED AT THE END OF THE NORMAL FCBS. ONLY SYSTEM ROUTINES 

*(COPY, BACKUP, MERGE ETC.) MAY ACCESS THIS BUFFER. 

AT AN EXACT 256 BYTE BOUNDARY? 
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2305 


D0CA 


27 


03 




2306 


D0CC 


4C 






2307 


D0CD 


27 


4C 




2308 


D0CF 


A7 


E4 




2309 


D0D1 


DC 


IB 




2310 


D0D3 


90 


BC 




2311 










2312 


D0D5 


AB 


E4 




2313 


D0D7 


25 


42 




2314 


D0D9 


IF 


01 




2315 


D0DB 


4C 






2316 










2317 


D0DC 


27 


3D 




2318 


D0DE 


10 


93 


21 


2319 


D0E1 


24 


38 




2320 


D0E3 


4A 






2321 


D0E4 


93 


IB 




2322 


D0E6 


D3 


19 




2323 


D0E8 


IF 


02 




2324 


D0EA 


A6 


E4 




2325 


D0EC 


90 


BC 




2326 


D0EE 


IF 


89 




2327 


D0F0 


9B 


BA 




2328 


D0F2 


97 


BA 




2329 


D0F4 


DB 


B7 




2330 


D0F6 


D7 


B7 




2331 


D0F8 


35 


46 




2332 










2333 


D0FA 


97 


BC 




2334 


D0FC 


F7 


09 


5B 


2335 


D0FF 


FF 


09 


4A 


2336 


D102 


DE 


IB 




2337 


D104 


9F 


IB 




2338 


D106 


11 


93 


IB 


2339 


D109 


22 


13 




2340 










2341 


D10B 


A6 


C2 




2342 


D10D 


A7 


82 




2343 


D10F 


11 


93 


19 


2344 


D112 


26 


F7 




2345 


□ 114 


10 


9F 


19 


2346 


D117 


6F 


3F 




2347 


□ 119 


20 


13 




2348 


DUB 


7E 


AC 


44 


2349 










2350 


due 


DE 


19 




2351 


D120 


10 


9F 


19 


2352 


D123 


6F 


3F 




2353 


D125 


A6 


C0 




2354 


D127 


A7 


A0 




2355 


D129 


10 


9C 


IB 


2356 


D12C 


26 


F7 




2357 










2358 










2359 


D12E 


CE 


09 


28 


2360 


D131 


BE 


09 


4A 


2361 


D134 


5F 






2362 


D135 


AF 


CI 




2363 


D137 


6F 


00 




2364 


D139 


30 


89 


01 19 


2365 


D13D 


5C 






2366 


D13E 


Fl 


09 


5B 


2367 


D141 


23 


F2 




2368 


D143 


7E 


96 


CB 


2369 










2370 










2371 


D146 


8D 


1A 




2372 


D148 


5F 






2373 


D149 


5C 






2374 


D14A 


BD 


C7 


19 


2375 


D14D 


27 


0D 




2376 


D14F 


A6 


01 




2377 


D151 


91 


EB 




2378 


D153 


26 


07 




2379 


D155 


34 


04 




2380 


D157 


BD 


CA 


58 


2381 


D15A 


35 


04 




2382 


D15C 


Fl 


09 


5B 


2383 


D15F 


23 


E8 




2384 


D161 


39 






2385 










2386 


D162 


F6 


09 


5A 


2387 


D165 


9D 


A5 




2388 


D167 


27 


09 




2389 


D169 


BD 


B7 


0B 


2390 


D16C 


CI 


03 




2391 


D16E 


10 


22 


D4 AD 


2392 


D172 


D7 


EB 




2393 


D174 


39 






2394 










2395 










2396 


D175 


10 


27 


D4 A6 


2397 


D179 


BD 


95 


AC 


2398 


> D17C 


BD 


Dl 


69 


2399 


D17F 


F7 


06 


FF 


2400 


D182 


9D 


A5 







BEQ 


LD0CF 




INCA 






BEQ 


LD11B 


LD0CF 


STA 


,s 




LDD 


VARTAB 




SUBA 


GRPRAM 




ADDA 


,S 




BLO 


LD11B 




TFR 


D,X 




INCA 




* 








BEQ 


LD11B 




CMPD 


FRETOP 




BHS 


LD11B 




DECA 






SUBD 


VARTAB 




ADDD 


TXTTAB 




TFR 


D,Y 




LDA 


,s 




SUBA 


GRPRAM 




TFR 


A,B 




ADDA 


BEGGRP 




STA 


BEGGRP 




ADDB 


ENDGRP 




STB 


ENDGRP 




PULS 


A,B,U 




STA 


GRPRAM 




STB 


FCBACT 




STU 


FCBADR 


LD102 


LDU 


VARTAB 




STX 


VARTAB 




CMPU 


VARTAB 




BHI 


LD11E 


* MOVE 


BASIC 


'ROGRAM IF OLD S 


LD10B 


LDA 


,-u 




STA 


,-x 




CMPU 


TXTTAB 




BNE 


LD10B 




STY 


TXTTAB 




CLR 


-1,Y 




BRA 


LD12E 


LD11B 


JMP 


LAC44 


* MOVE 


BASIC 


'ROGRAM IF OLD S' 


LD11E 


LDU 


TXTTAB 




STY 


TXTTAB 




CLR 


-1,Y 


LD125 


LDA 


,u+ 




STA 


,Y+ 




CMPY 


VARTAB 




BNE 


LD125 


* CLOSE ALL FCBS AND RECALCUL, 


LD12E 


LDU 


#FCBV1 




LDX 


FCBADR 




CLRB 




LD135 


STX 


,U++ 




CLR 


FCBTYP.X 




LEAX 


FCBLEN.X 




INCB 






CMPB 


FCBACT 




BLS 


LD135 




JMP 


L96CB 


* UNLOAD COMMAND 


UNLOAD 


BSR 
CLRB 


LD162 


LD149 


INCB 






JSR 


LC719 




BEQ 


LD15C 




LDA 


FCBDRV.X 




CMPA 


DCDRV 




BNE 


LD15C 




PSHS 


B 




JSR 


LCA58 




PULS 


B 


LD15C 


CMPB 


FCBACT 




BLS 


LD149 




RTS 




* GET DRIVE NUMBER FROM BASIC 


LD162 


LDB 


DEFDRV 




JSR 


GETCCH 




BEQ 


LD172 


LD169 


JSR 


EVALEXPB 




CMPB 


#$03 




LBHI 


LA61F 


LD172 


STB 
RTS 


DCDRV 


* BACKUP COMMAND 


BACKUP 


LBEQ 


LA61F 




JSR 


L95AC 




JSR 


LD169 




STB 


DBUF0+255 




JSR 


GETCCH 



ACCD CONTAINS LENGTH 



YES 

NO - ADD 256 

'OUT OF MEMORY' ERROR IF PAST $FFFF 

SAVE MS BYTE OF NEW GRAPHIC RAM START 

GET START OF VARIABLES 

♦SUBTRACT THE OLD GRAPHIC RAM START 

*OF PROGRAM PLUS RESERVED GRAPHIC RAM 

ADD IN THE AMOUNT OF RAM CALCULATED ABOVE 

'OUT OF MEMORY' ERROR IF > $FFFF 

SAVE NEW VARTAB IN X 

*ADD 256 - TO GUARANTEE ENOUGH ROOM SINCE ALL CALCULATIONS USE 

*ONLY THE MSB OF THE ADDRESS 

'OUT OF MEMORY' ERROR IF PAST $FFFF 

IS IT GREATER THAN THE START OF STRING SPACE 

'OUT OF MEMORY' IF > START OF STRING SPACE 

SUBTRACT 256 - COMPENSATE FOR INCA ABOVE 

SUBTRACT START OF VARIABLES 

ADD START OF BASIC 

Y HAS NEW START OF BASIC 

* GET THE GRAPHIC RAM START, SUBTRACT 

* THE OLD GRAPHIC RAN START AND SAVE 

* THE DIFFERENCE IN ACCA AND ACCB 
= ADD THE OLD GRAPHIC PAGE START AND 
= STORE THE NEW START OF GRAPHICS RAM 

* ADD THE OLD GRAPHIC RAM END ADDRESS AND 

* STORE THE NEW END OF GRAPHICS RAM 

= ACCA=MSB OF START OF GRAPHIC RAM; ACCB=NUMBER OF FILE BUFFERS 
= U=START OF FILE BUFFERS 
SAVE NEW START OF GRAPHIC RAM 
NUMBER OF FILE BUFFERS 
START OF FILE BUFFERS 
POINT U TO OLD START OF VARIABLES 
SAVE NEW START OF VARIBLES 

* COMPARE OLD START OF VARIABLES TO NEW START OF 

* VARIABLES & BRANCH IF OLD > NEW 
OLD START ADDRESS <= NEW START ADDRESS 

GET A BYTE 
MOVE IT 

AT START OF BASIC PROGRAM? 
NO 

STORE NEW START OF BASIC PROGRAM 
RESET START OF PROGRAM FLAG 
CLOSE ALL FILES 
'OUT OF MEMORY' ERROR 
iDDRESS > NEW START ADDRESS 

POINT U TO OLD START OF BASIC 

SAVE NEW START OF BASIC 

RESET START OF BASIC FLAG 

GET A BYTE 

MOVE IT 

AT START OF VARIABLES 

NO - MOVE ANOTHER BYTE 



POINT U TO FILE BUFFER POINTERS 

POINT X TO START OF BUFFERS 

RESET FILE COUNTER 

STORE FILE ADDRESS IN VECTOR TABLE 

RESET FILE TYPE TO CLOSED 

GO TO NEXT FCB 

INCREMENT FILE COUNTER 

CLOSE ALL ACTIVE BUFFERS AND SYSTEM FCB 

BRANCH IF NOT DONE 

READJUST LINE NUMBERS, ETC. 



GET DRIVE NUMBER 

CLEAR FILE COUNTER 

INCREMENT FILE COUNTER 

POINT X TO FCB 

BRANCH IF FILE NOT OPEN 

CHECK DRIVE NUMBER 

DOES IT MATCH THE 'UNLOAD' DRIVE NUMBER? 

NO MATCH - DO NOT CLOSE THE FILE 

SAVE FILE COUNTER ON THE STACK 

CLOSE FCB 

RESTORE FILE COUNTER 

CHECKED ALL FILES? 

NO 

USE THE DEFAULT DRIVE IF NONE GIVEN 

GET DEFAULT DRIVE NUMBER 

GET NEXT INPUT CHAR 

USE DEFAULT DRIVE NUMBER IF NONE GIVEN 

EVALUATE EXPRESSION 

4 DRIVES MAX 

■DEVICE NUMBER ERROR' IF > 3 

STORE IN DSKCON VARIABLE 



DEVICE NUMBER ERROR IF NO DRIVE NUMBERS GIVEN 
RESET SAM DISPLAY PAGE AND VOG MODE 

* GET SOURCE DRIVE NUMBER AND SAVE 

* IT AT TOP OF DBUF0 (TOP OF NEW STACK) 
GET A CHARACTER FROM BASIC 



DISK BASIC UNRAVELLED II 



APPENDIX C 
DISASSEMBLY OF DISK BASIC 1.0 



ORIGIN:SPECTRAL ASSOC 
REVISED: 12/26/1999 WALTER K ZYDHEK 



2401 


D184 


27 


08 




2402 


D186 


C6 


A5 




2403 


D188 


BD 


B2 


6F 


2404 


> D18B 


BD 


Dl 


69 


2405 


D18E 


10 


CE 


06 FF 


2406 


D192 


34 


04 




2407 


D194 


BD 


A5 


C7 


2408 


D197 


BD 


CA 


3B 


2409 


D19A 


6F 


E2 




2410 


D19C 


8E 


09 


88 


2411 


D19F 


6C 


E4 




2412 


D1A1 


30 


89 


12 00 


2413 


D1A5 


9C 


27 




2414 


D1A7 


23 


F6 




2415 


D1A9 


6A 


E4 




2416 


D1AB 


10 


27 


DA 95 


2417 


D1AF 


86 


23 




2418 


D1B1 


5F 






2419 


D1B2 


34 


06 




2420 










2421 










2422 










2423 










2424 










2425 


D1B4 


73 


09 


5C 


2426 


D1B7 


5F 






2427 


D1B8 


5C 






2428 


D1B9 


6A 


E4 




2429 


D1BB 


27 


04 




2430 


D1BD 


El 


62 




2431 


D1BF 


26 


F7 




2432 


D1C1 


D7 


03 




2433 


D1C3 


E6 


64 




2434 


D1C5 


8D 


48 




2435 


D1C7 


86 


FF 




2436 


> D1C9 


BD 


D2 


35 


2437 


D1CC 


E6 


63 




2438 


DICE 


8D 


42 




2439 


D1D0 


6D 


E4 




2440 


D1D2 


27 


0C 




2441 


D1D4 


4F 






2442 


> D1D5 


BD 


D2 


35 


2443 


D1D8 


E6 


61 




2444 


D1DA 


DB 


03 




2445 


D1DC 


E7 


61 




2446 


D1DE 


20 


D7 




2447 










2448 


D1E0 


8D 


03 




2449 


D1E2 


7E 


AC 


73 


2450 










2451 


D1E5 


35 


40 




2452 


D1E7 


B6 


09 


5C 


2453 


D1EA 


27 


16 




2454 


D1EC 


8E 


09 


28 


2455 


D1EF 


4F 






2456 


D1F0 


6F 


91 




2457 


D1F2 


4C 






2458 


D1F3 


Bl 


09 


5B 


2459 


D1F6 


23 


F8 




2460 


D1F8 


9E 


19 




2461 


D1FA 


6F 


IF 




2462 


D1FC 


BD 


AD 


19 


2463 


D1FF 


7F 


09 


5C 


2464 


D202 


B6 


09 


5D 


2465 


D205 


27 


06 




2466 


D207 


7F 


09 


5D 


2467 


D20A 


BD 


AD 


19 


2468 


D20D 


6E 


C4 




2469 










2470 


D20F 


86 


02 




2471 


D211 


8C 


86 


03 


2472 


D212 


86 


33 




2473 


D214 


DD 


EA 




2474 


D216 


A6 


63 




2475 


D218 


97 


EC 




2476 


D21A 


8E 


09 


89 


2477 


D21D 


9F 


EE 




2478 


D21F 


96 


03 




2479 


D221 


C6 


01 




2480 


D223 


D7 


ED 




2481 


D225 


BD 


D5 


FF 


2482 


D228 


0C 


EE 




2483 


D22A 


5C 






2484 


D22B 


CI 


12 




2485 


D22D 


23 


F4 




2486 


D22F 


0C 


EC 




2487 


D231 


4A 






2488 


D232 


26 


ED 




2489 


D234 


39 






2490 










2491 


D235 


E6 


65 




2492 


D237 


El 


66 




2493 










2494 










2495 


D239 


26 


36 




2496 


D23B 


7F 


09 


85 





BEQ 


LD18E 




LDB 


#$A5 




JSR 


LB26F 




JSR 


LD169 


LD18E 


LDS 


#DBUF0+255 




PSHS 


B 




JSR 


LA5C7 




JSR 


DVEC7 




CLR 


,-s 




LDX 


#DFLBUF-1 


LD19F 


INC 


,s 




LEAX 


SECMAX*SECLEN,X 




CMPX 


MEMSIZ 




BLS 


LD19F 




DEC 


,s 




LBEQ 


LAC44 




LDA 


#TRKMAX 




CLRB 






PSHS 


B,A 


* AT THIS POINT THE STACK HAS THI 


* ,s « 


TRACKS 


REMAINING COUNTER; 


* 2,S 


= NUMBER OF TRACKS WHICH F 


* 4,S 


= SOURCE DRIVE NUMBER 




COM 


DRESFL 


LD1B7 


CLRB 




LD1B8 


INCB 






DEC 


,s 




BEQ 


LD1C1 




CMPB 


$02, S 




BNE 


LD1B8 


LD1C1 


STB 


TMPLOC 




LDB 


$04, S 




BSR 


LD20F 




LDA 


#$FF 




JSR 


LD235 




LDB 


$03, S 




BSR 


LD212 




TST 


,s 




BEQ 


LD1E0 




CLRA 






JSR 


LD235 




LDB 


$01, s 




ADDB 


TMPLOC 




STB 


$01, s 




BRA 


LD1B7 



BRANCH IF END OF LINE 

TOKEN FOR 'TO' 

SYNTAX CHECK FOR 'TO' 

GET DESTINATION DRIVE NUMBER 

PUT STACK AT TOP OF DBUF0 

SAVE DESTINATION DRIVE NUMBER ON STACK 

SYNTAX ERROR IF NOT END OF LINE 

CLOSE ALL FILES 

CLEAR A TRACK COUNTER ON STACK 

POINT X TO TOP OF DISK RAM VARIABLES 

INCREMENT TRACK COUNTER 

INCREMENT X BY ONE TRACK 

COMPARE TO TOP OF NON RESERVED RAN 

KEEP GOING IF MORE FREE RAM LEFT 

DECREMENT TRACK COUNTER 

'OM' ERROR IF < 1 TRACK OF FREE RAM 

GET MAXIMUM NUMBER OF TRACKS INITIALIZE REMAINING TRACKS CTR 

INITIALIZE TRACKS WRITTEN COUNTER TO ZERO 

SAVE TRACKS WRITTEN AND REMAINING COUNTERS ON STACK 



E FOLLOWING DATA ON IT: 

1,S = TRACKS WRITTEN COUNTER 
IT IN RAM; 3,S = DESTINATION DRIVE NUMBER 



LD1E0 BSR LD1E5 
JMP LAC73 



LD211 
LD212 



LD221 
LD223 



PULS U 

LDA DRESFL 
LD202 
#FCBV1 



[,X++] 



BEQ 

LDX 

CLRA 

CLR 

INCA 

CMPA FCBACT 

LD1F0 

TXTTAB 

-1,X 

LAD19 

DRESFL 

DLODFL 

LD20D 

DLODFL 

LAD19 

,U 



BLS 
LDX 
CLR 
JSR 
CLR 
LDA 
BEQ 
CLR 
JSR 
JMP 



LDA 

CMPX 

LDA 

STD 

LDA 

STA 

LDX 

STX 

LDA 

LDB 

STB 

JSR 

INC 

INCB 

CMPB 

BLS 

INC 

DECA 

BNE 

RTS 



LD235 LDB 
CMPB 



#$02 

#$8603 

#$03 

DCOPC 

$03, S 

DCTRK 

#DFLBUF 

DCBPT 

TMPLOC 

#$01 

DSEC 

LD5FF 

DCBPT 

#SECMAX 

LD223 

DCTRK 



SET THE DISK RESET FLAG TO CAUSE A RESET 
INITIALIZE WRITE TRACK COUNTER TO ZERO 
ADD ONE TO WRITE TRACK COUNTER 

* DECREMENT REMAINING TRACKS COUNTER 

* AND BRANCH IF NO TRACKS LEFT 

= COMPARE WRITE TRACK COUNTER TO NUMBER OF TRACKS THAT 

= WILL FIT IN RAM AND BRANCH IF ROOM FOR MORE TRACKS IN RAM 

SAVE THE NUMBER OF TRACKS TO BE TRANSFERRED 

GET SOURCE DRIVE NUMBER 

FILL RAM BUFFER WITH TMPLOC TRACKS OF DATA 

SET SOURCE/DESTINATION FLAG TO DESTINATION 

PRINT PROMPT MESSAGE IF NEEDED 

GET DESTINATION DRIVE NUMBER 

WRITE TMPLOC TRACKS FROM BUFFER 

TEST TRACKS REMAINING FLAG 

BRANCH IF BACKUP DONE 

SET SOURCE7DESTINATION FLAG TO SOURCE 

PRINT PROMPT MESSAGE IF NEEDED 

* GET THE TRACKS WRITTEN COUNTER, ADD THE NUMBER OF 

* TRACKS MOVED THIS TIME THROUGH LOOP AND 

* SAVE THE NEW TRACKS WRITTEN COUNTER 
COPY SOME MORE TRACKS 

CHECK FOR DOS INITIALIZATION 
JUMP BACK TO BASIC S MAIN LOOP 

PUT THE RETURN ADDRESS IN U 

TEST DISK RESET FLAG 

DON T RESET THE DOS IF FLAG NOT SET 

POINT X TO TABLE OF FCB ADDRESSES 

SET FILE COUNTER TO ZERO 

MARK FCB AS CLOSED 

ADD ONE TO FILE COUNTER 

COMPARE TO NUMBER OF RESERVED FILES 

BRANCH IF ANY FILES NOT SHUT DOWN 

LOAD X WITH THE START OF BASIC 

SET FIRST BYTE OF BASIC PROGRAM TO ZERO 

GO DO A 'NEW' 

RESET THE DOS RESET FLAG 

* CHECK THE LOAD RESET FLAG AND 

* BRANCH IF NOT SET 
CLEAR THE LOAD RESET FLAG 
GO DO A 'NEW' 

JUMP BACK TO RETURN ADDRESS SAVED IN U ABOVE 

READ OP CODE 

SKIP TWO BYTES 

WRITE OP CODE 

SAVE IN DSKCON VARIABLE 

* GET THE NUMBER OF THE TRACK BEING CURRENTLY 

* WRITTEN AND SAVE IT IN DSKCON VARIABLE 
= TRACK BUFFER STARTS AT DFLBUF 

= SAVE IT IN DSKCON VARIABLE 

GET NUMBER OF TRACKS TO MOVE 

INITIALIZE SECTOR COUNTER TO ONE 

SAVE DSKCON SECTOR VARIABLE 

READ7WRITE A SECTOR 

MOVE BUFFER POINTER UP ONE SECTOR (256 BYTES) 

INCREMENT SECTOR COUNTER 

COMPARE TO MAXIMUM NUMBER OF SECTORS PER TRACK 

BRANCH IF ANY SECTORS LEFT 

INCREMENT TRACK COUNTER VARIABLE TO NEXT TRACK 

DECREMENT TRACKS TO MOVE COUNTER 

READ MORE TRACKS IF ANY LEFT 



GET THE DESTINATION DRIVE NUMBER AND 
COMPARE IT TO THE SOURCE DRIVE NUMBER 



* PRINT SOURCE7DESTINATION DISK SWITCH PROMPT MESSAGE 

LD239 BNE LD271 RETURN IF DRIVE NUMBERS NOT EQUAL 

CLR RDYTMR RESET THE READY TIMER 
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2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 



D23E 
D241 
D244 
D246 
D249 
D24C 
D24E 
D250 
D252 
D255 
D257 
D25A 
D25D 
D25F 
D262 
D265 
D267 
D26A 
D26D 
D26F 
D271 



7F FF 40 
7F 09 86 
34 02 
BD A9 28 
8E D2 72 
C6 0D 
A6 E0 
27 05 
8E D2 7F 
C6 12 
BD B9 A2 
8E D2 91 
C6 IB 
BD B9 A2 
CC 64 05 
97 8C 
BD A9 51 
BD Al 71 
81 0D 
26 F9 
39 



LD271 



CLR 


DSKREG 


CLR 


DRGRAM 


PSHS 


A 


JSR 


LA928 


LDX 


#LD272 


LDB 


#13 


LDA 


,s+ 


BEQ 


LD257 


LDX 


#LD27F 


LDB 


#18 


JSR 


LB9A2 


LDX 


#LD291 


LDB 


#27 


JSR 


LB9A2 


LDD 


#$6405 


STA 


SNDTON 


JSR 


LA951 


JSR 


LA171 


CMPA 


#CR 


BNE 


LD26A 


RTS 





CLEAR DSKREG - TURN OFF ALL DISK MOTORS 

CLEAR DSKREG RAM IMAGE 

SAVE SOURCE/DESTINATION FLAG ON STACK 

CLEAR SCREEN 

POINT X TO 'INSERT SOURCE' MESSAGE 

13 BYTES IN MESSAGE 

GET SOURCE/DESTINATION FLAG FROM THE STACK 

BRANCH IF SOURCE 

POINT X TO 'INSERT DESTINATION' MESSAGE 

18 BYTES IN MESSAGE 

SEND MESSAGE TO CONSOLE OUT 

POINT X TO 'DISKETTE AND' MESSAGE 

27 BYTES IN MESSAGE 

SEND MESSAGE TO CONSOLE OUT 

* SET UP 'SOUND' PARAMETERS 

* FOR A BEEP 

JUMP TO 'SOUND' - DO A BEEP 
GET A CHARACTER FROM CONSOLE IN 

* KEEP LOOKING AT CONSOLE IN UNTIL 

* YOU GET A CARRIAGE RETURN 



D272 49 4E 53 45 52 54 LD272 

D278 20 53 4F 55 52 43 

D27E 45 

D27F 49 4E 53 45 52 54 LD27F 

D285 20 44 45 53 54 49 

D28B 4E 41 54 49 4F 4E 

D291 20 44 49 53 4B 45 LD291 

D297 54 54 45 20 41 4E 

D29D 44 

D29E 0D 

D29F 50 52 45 53 53 20 

D2A5 27 45 4E 54 45 52 

D2AB 27 



'INSERT SOURCE' 



'INSERT DESTINATION' 



DISKETTE AND' 



FCB 
FCC 



CR 
'PRESS 



PUSH FILENAME. EXT AND DRIVE NUMBER ONTO THE STACK 



D2AC 35 20 
D2AE C6 0B 
D2B0 8E 09 
D2B3 A6 82 
D2B5 34 02 
D2B7 5A 
D2B8 26 F9 
D2BA 96 EB 
D2BC 34 02 
D2BE 6E A4 



D2C0 A6 80 
D2C2 97 EB 
D2C4 C6 0B 
D2C6 CE 09 4C 
D2C9 7E A5 9A 



D2CC 
D2CF 
D2D1 
D2D3 
D2D5 
D2D7 
D2D9 
D2DB 
D2DE 
D2E1 
D2E3 
D2E6 



BD C8 87 
8D DB 
6F E2 
9D A5 
27 0A 
63 E4 
C6 A5 
BD B2 6F 
BD C8 87 
8D C9 
BD A5 C7 
BD CA 3B 



D2E9 6F E2 
D2EB 30 E8 9C 
D2EE 6C E4 
D2F0 30 89 FF 00 
D2F4 9C IF 
D2F6 24 F6 
D2F8 6A E4 
D2FA 10 27 D9 46 
D2FE 30 6E 
D300 8D BE 
D302 BD C6 5F 
D305 BD C6 B8 
D308 BE 09 74 
D30B EE 0E 
D30D AE 0B 



LD2AC 


PULS 


Y 




LDB 


#11 




LDX 


#DNAMBF+11 


LD2B3 


LDA 


,-x 




PSHS 


A 




DECB 






BNE 


LD2B3 




LDA 


DCDRV 




PSHS 


A 




JMP 


,Y 


* PULL 


FILENAME. EXT AND [ 


LD2C0 


LDA 


,x+ 




STA 


DCDRV 




LDB 


#11 




LDU 


#DNAMBF 




JMP 


LA59A 



SAVE RETURN ADDRESS IN Y 

11 CHARACTERS IN FILENAME AND EXTENSION 

POINT X TO TOP OF DISK NAME/EXT BUFFER 

* GET A CHARACTER FROM FILENAME. 

* EXT BUFFER AND PUSH IT ONTO THE 

* STACK - DECREMENT COUNTER AND 

* KEEP LOOPING UNTIL DONE 

= GET DRIVE NUMBER AND PUSH 

= IT ONTO THE STACK 

PSEUDO - RETURN TO CALLING ROUTINE 



* GET DRIVE NUMBER AND SAVE 

* IT IN DSKCON VARIABLE 
11 BYTES IN FILENAME AND EXTENSION 
POINT U TO DISK NAME BUFFER 
MOVE FILENANE.EXT FROM (X) TO DNAMBF 

COPY 

THE COPY PROCESS IS PERFORMED BY COPYING DATA FROM THE SOURCE FILE 
TO RAM AND THEN COPYING IT TO THE DESTINATION FILE. THE SOURCE AND 
DESTINATION FILES ARE OPENED AS RANDOM FILES AND BOTH USE THE SYSTEM 
FCB ABOVE THE RESERVED FCBS. ALL OF AVAILABLE FREE RAM ABOVE THE 
VARIABLES IS USED AS A COPY BUFFER WHICH SPEEDS UP THE COPYING PROCESS 
BUT UNFORTUNATELY THE METHOD USED WILL ALLOW AN ERROR ENCOUNTERED DURING 
THE COPY PROCESS TO 'HANG' THE SYSTEM. THIS IS CAUSED BY POINTING THE FOB'S 
RANDOM FILE BUFFER POINTER (FCBBUF.X) TO THE FREE RAM BUFFER. AN ERROR 
WILL THEN CAUSE THE OPEN FILE TO BE CLOSED WITH FCBBUF.X POINTING TO AN 
AREA IN RAM WHERE THE RANDOM FILE BUFFER CLOSE ROUTINE (LCAE2) WILL NEVER 
LOOK FOR IT 

* GET SOURCE FILENAME. EXT S DRIVE NUMBER FROM BASIC 

* AND SAVE THEM ON THE STACK 

CLEAR A BYTE ON STACK - SINGLE DISK COPY (SDC) FLAG 
GET CURRENT INPUT CHARACTER 
BRANCH IF END OF LINE - SINGLE DISK COPY 
SET SOC FLAG TO $FF (NO SINGLE DISK COPY) 
TOKEN FOR 'TO' 
SYNTAX CHECK FOR 'TO' 

GET DESTINATION FILENAME. EXT AND DRIVE NUMBER 
SAVE DESTINATION FILENAME. EXT S DRIVE NUMBER ON STACK 
SYNTAX ERROR IF MORE CHARACTERS ON LINE 
CLOSE ALL FILES 

WORTH OF FREE RAM AVAILABLE 

CLEAR A SECTOR COUNTER ON THE STACK 

** BUG ** THIS SHOULD BE $100 TO POINT X ONE SECTOR LENGTH BELOW STACK 

INCREMENT SECTOR COUNTER 

DECREMENT X BY ONE SECTOR 

COMPARE TO TOP OF ARRAYS 

BRANCH IF NOT AT BOTTOM OF FREE RAM 

DECREMENT SECTOR COUNTER 

'OM' ERROR IF NOT AT LEAST ONE FULL SECTOR OF FREE RAM 

POINT X TO START OF SOURCE DATA 

PUT SOURCE DATA INTO DNAMBF AND DSKCON 

SCAN DIRECTORY FOR A MATCH 

'NE' ERROR IF MATCH NOT FOUND 

POINT X TO DIRECTORY RAM IMAGE OF FOUND FILE 

* GET NUMBER OF BYTES IN LAST SECTOR AND 

* SOURCE FILE TYPE AND ASCII FLAG 



JSR 


LC887 


BSR 


LD2AC 


CLR 


,-s 


JSR 


GETCCH 


BEQ 


LD2E1 


COM 


,s 


LDB 


#$A5 


JSR 


LB26F 


JSR 


LC887 


BSR 


LD2AC 


JSR 


LA5C7 


JSR 


DVEC7 


THE NUMBER OF SI 


CLR 


,-s 


LEAX 


-100, S 


INC 


,s 


LEAX 


-SECLEN.X 


CMPX 


ARYEND 


BHS 


LD2EE 


DEC 


,s 


LBEQ 


LAC44 


LEAX 


14, S 


BSR 


LD2C0 


JSR 


LC65F 


JSR 


LC6B8 


LDX 


V974 


LDU 


DIRLST.X 


LDX 


DIRTYP.X 



DISK BASIC UNRAVELLED II 
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DISASSEMBLY OF DISK BASIC 1.0 
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2593 


D30F 


34 


50 




2594 


D311 


BD 


C7 


6D 


2595 


D314 


F6 


09 


76 


2596 


D317 


BD 


CC 


44 


2597 


D31A 


34 


02 




2598 


D31C 


4A 






2599 


D31D 


C4 


3F 




2600 


D31F 


34 


04 




2601 


D321 


IF 


89 




2602 


D323 


4F 






2603 


D324 


BD 


C7 


49 


2604 


D327 


EB 


E4 




2605 


D329 


89 


00 




2606 


D32B 


8E 


00 


01 


2607 


D32E 


34 


16 




2608 










2609 










2610 










2611 










2612 










2613 










2614 










2615 










2616 










2617 










2618 


D330 


5F 






2619 


D331 


AE 


E4 




2620 


D333 


27 


09 




2621 


D335 


5C 






2622 


D336 


30 


IF 




2623 


D338 


27 


04 




2624 


D33A 


El 


6A 




2625 










2626 


D33C 


26 


F7 




2627 


D33E 


AF 


E4 




2628 


D340 


E7 


64 




2629 


D342 


8D 


50 




2630 


D344 


86 


FF 




2631 


D346 


8D 


40 




2632 


D348 


6D 


65 




2633 


D34A 


27 


25 




2634 










2635 










2636 


D34C 


30 


6B 




2637 


D34E 


BD 


D2 


C0 


2638 


D351 


BD 


CF 


7D 


2639 


D354 


BD 


C7 


6D 


2640 










2641 










2642 


D357 


BD 


C7 


25 


2643 


D35A 


30 


06 




2644 


D35C 


A6 


65 




2645 


D35E 


C6 


44 




2646 


D360 


63 


84 




2647 


D362 


26 


03 




2648 


D364 


4A 






2649 


D365 


27 


08 




2650 


D367 


63 


80 




2651 


D369 


5A 






2652 


D36A 


26 


F4 




2653 


D36C 


7E 


C7 


C8 


2654 


D36F 


63 


84 




2655 


D371 


8D 


IB 




2656 


D373 


AE 


E4 




2657 


D375 


27 


0D 




2658 


D377 


EC 


62 




2659 


D379 


EB 


64 




2660 


D37B 


89 


00 




2661 


D37D 


ED 


62 




2662 


D37F 


4F 






2663 


D380 


8D 


06 




2664 


D382 


20 


AC 




2665 










2666 


D384 


32 


E8 


24 


2667 


D387 


39 






2668 










2669 


D388 


6D 


E8 


19 


2670 










2671 


D38B 


7E 


D2 


39 


2672 


D38E 


86 


FF 




2673 










2674 










2675 


D390 


30 


6D 




2676 


D392 


20 


04 




2677 


D394 


4F 






2678 


D395 


30 


E8 


1A 


2679 


D398 


97 


D8 




2680 


D39A 


BD 


D2 


C0 


2681 


D39D 


AE 


68 




2682 


D39F 


BF 


09 


57 


2683 


D3A2 


8E 


01 


00 


2684 


D3A5 


BF 


09 


7C 


2685 


D3A8 


86 


52 




2686 


D3AA 


F6 


09 


5B 


2687 


D3AD 


5C 






2688 


D3AE 


BD 


C4 


68 



PSHS 


u,x 


JSR 


LC76D 


LDB 


V976 


JSR 


LCC44 


PSHS 


A 


DECA 




ANDB 


#$3F 


PSHS 


B 


TFR 


A,B 


CLRA 




JSR 


LC749 


ADDB 


,s 


ADCA 


#$00 


LDX 


#$0001 


PSHS 


X,B,A 



* AND SAVE THEM ON THE STACK 
GET VALID FAT DATA 
GET NUMBER OF FIRST GRANULE IN FILE 

* GET THE NUMBER OF GRANULES IN FILE 

* AND SAVE IT ON THE STACK 
SUBTRACT OFF THE LAST GRANULE 

* MASK OFF LAST GRANULE FLAG BITS AND SAVE THE 

* NUMBER OF SECTORS IN LAST GRANULE ON STACK 
SAVE THE NUMBER OF GRANULES IN ACCB 
CLEAR THE MS BYTE OF ACCD 
MULTIPLY ACCD BY NINE 

* ADD THE NUMBER OF SECTORS IN THE LAST 

* GRANULE TO ACCD 
INITIALIZE RECORD COUNTER TO ONE 
INITIALIZE SECTOR AND RECORD COUNTERS ON THE STACK 

AT THIS POINT THE CONTROL VARIABLES FOR COPY ARE STORED ON THE STACK. 
1,S = REMAINING SECTORS COUNTER; 2 3,S = RECORD COUNTER 

4,S = NUMBER OF SECTORS TO BE COPIED. INITIALLY SET TO NUMBER OF 

SECTORS IN THE LAST GRANULE. 
5,S ■ GRAN TEST FLAG. INITIALLY SET TO NUMBER OF GRANS IN FILE 
6,S = FILE TYPE; 7,S = ASCII FLAG; 8 9,S = NUMBER OF BYTES IN LAST SECTOR 
10, S = NUMBER OF SECTORS WHICH WILL FIT IN THE CURRENTLY AVAILABLE FREE RAM 
11-22, S = DESTINATION FILENAME. EXT AND DRIVE NUMBER 

23, S = SINGLE DISK COPY FLAG; 24-35, S = SOURCE FILENAME. EXT AND DRIVE NUMBER 

SET SECTOR COUNTER TO ZERO 

GET THE NUMBER OF SECTORS REMAINING IN THE FILE 
BRANCH IF NO SECTORS LEFT 
ADD A SECTOR TO TEMPORARY SECTOR COUNTER 
DECREMENT REMAINING SECTORS COUNTER 
BRANCH IF NO SECTORS LEFT 

♦COMPARE TEMPORARY COUNTER TO NUMBER OF SECTORS WHICH MAY 
*BE STORED IN FREE RAM 
BRANCH IF STILL ROOM FOR MORE SECTORS 

SAVE THE NUMBER OF UNCOPIED SECTORS REMAINING IN THE FILE 
SAVE THE NUMBER OF SECTORS TO BE COPIED THIS TIME THROUGH LOOP 
'GET' ACCB SECTORS TO RAM BUFFER 
SET SOURCE/DESTINATION FLAG TO DESTINATION 
PRINT PROMPT MESSAGE IF REQUIRED 

* CHECK THE GRAN TEST FLAG. IF <> 0, IT CONTAINS THE 

* NUMBER OF GRANS IN THE FILE AND THE DESTINATION DISK 

* MUST BE CHECKED FOR ENOUGH ROOM. IF IT IS = 

* THEN THE CHECK HAS ALREADY BEEN DONE 
POINT TO DESTINATION FILE PARAMETERS 
GET DESTINATION FILE PARAMETERS FROM STACK 
SCAN DIRECTORY FOR FILE - 'AE' ERROR IF IT EXISTS 
GET VALID FAT DATA 



POINT X TO FAT 

SKIP PAST THE FAT CONTROL BYTES 
GET THE NUMBER OF GRANS IN THE FILE 
SET GRAN COUNTER TO MAXIMUM 

* CHECK TO SEE IF A BRAN IS FREE 

* AND BRANCH IF IT IS NOT FREE 

= DECREMENT COUNTER AND BRANCH IF 

= THERE ARE ENOUGH FREE GRANULES 

RESTORE FAT BYTE AND INCREMENT POINTER 

DECREMENT GRAN COUNTER 

BRANCH IF ALL GRANS NOT CHECKED 

'DISK FULL' ERROR 

RESTORE FAT BYTE 

'PUT' DATA FROM RAM BUFFER TO DESTINATION FILE 

GET THE NUMBER OF REMAINING SECTORS 

EXIT ROUTINE IF NO SECTORS LEFT 

* GET THE CURRENT RECORD COUNTER, ADD 

* THE NUMBER OF SECTORS (RECORDS) MOVED 

* AND SAVE THE NEW RECORD COUNTER 
SET SOURCE/DESTINATION FLAG TO SOURCE 
PRINT PROMPT MESSAGE IF REQUIRED 
KEEP COPYING SECTORS 



LD330 


CLRB 






LDX 


,S 




BEQ 


LD33E 


LD335 


INCB 






LEAX 


-1,X 




BEQ 


LD33E 




CMPB 


10, S 




BNE 


LD335 


LD33E 


STX 


,s 




STB 


$04, S 




BSR 


$D394 




LDA 


#$FF 




BSR 


LD388 




TST 


$05, S 


, 


BEQ 


LD371 


* 


LEAX 


11, S 




JSR 


LD2C0 




JSR 


LCF7D 




JSR 


LC76D 


* MAKE 


SURE THERE ARE [ 




JSR 


LC725 




LEAX 


FATCON.X 




LDA 


$05, S 




LDB 


#GRANMX 


LD360 


COM 


,x 




BNE 


LD367 




DECA 






BEQ 


LD36F 


LD367 


COM 
DECB 


,x+ 




BNE 


LD360 




JMP 


LC7C8 


LD36F 


COM 


,x 


LD371 


BSR 


LD38E 




LDX 


,s 




BEQ 


LD384 




LDD 


$02, S 




ADDB 


$04, S 




ADCA 


#$00 




STD 


$02, S 




CLRA 






BSR 


LD388 




BRA 


LD330 


LD384 


LEAS 
RTS 


36, S 



REMOVE TEMPORARY STORAGE VARIABLES FROM STACK 
**** COPY DONE **** 



TST 25, S 



JMP LD239 
LD38E LDA #$FF 



*CHECK SINGLE DISK COPY FLAG - IF <> 

*PRINT THE PROMPT MESSAGE 

PRINT THE PROMPT MESSAGE IF REQUIRED 



ZERO, THEN DON'T 



'PUT'. 'GET' DATA FROM THE DESTINATION7SOURCE F 'PUT' FLAG 



LEAX 


13, S 


BRA 


LD398 


CLRA 




LEAX 


26, S 


STA 


VD8 


JSR 


LD2C0 


LDX 


8,S 


STX 


DFLTYP 


LDX 


#SECLEN 


STX 


DFFLEN 


LDA 


#'R' 


LDB 


FCBACT 


INCB 




JSR 


LC468 



POINT X TO DESTINATION FILENAME DATA 

GO 'PUT' SOME DATA 

ZERO IS THE 'GET' FLAG 

POINT X TO THE SOURCE FILENAME DATA 

SAVE THE 'GETV'PUT' FLAG 

GET FILENAME AND DRIVE DATA FROM THE STACK 

* GET ASCII FLAG AND FILE TYPE AND SAVE 

* THEM IN THE DISK RAM VARIABLES 
= SAVE ONE SECTOR LENGTH IN 

= RAM RECORD LENGTH VARIABLE 
RANDOM FILE TYPE FLAG 

* GET THE HIGHEST RESERVED FCB NUMBER, ADD ONE 

* AND OPEN A RANDOM FILE WHOSE FCB WILL BE ONE ABOVE 

* THE HIGHEST RESERVED FCB (THE SYSTEM FCB) 



DISK BASIC UNRAVELLED II 
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2689 


D3B1 


9E 


Fl 




2690 


D3B3 


CC 


01 


00 


2691 


D3B6 


ED 


88 


13 


2692 


D3B9 


E6 


66 




2693 


D3BB 


27 


29 




2694 


D3BD 


D6 


D8 




2695 


D3BF 


E4 


67 




2696 


D3C1 


27 


09 




2697 


D3C3 


EC 


62 




2698 


D3C5 


EB 


66 




2699 


D3C7 


89 


00 




2700 


D3C9 


BD 


C2 


CC 


2701 


D3CC 


9E 


Fl 




2702 










2703 


D3CE 


EE 


64 




2704 


D3D0 


EF 


07 




2705 


D3D2 


E6 


66 




2706 


D3D4 


DE 


IF 




2707 


D3D6 


34 


44 




2708 


D3D8 


9E 


Fl 




2709 


D3DA 


EF 


0B 




2710 


D3DC 


BD 


C2 


D0 


2711 










2712 


D3DF 


6C 


61 




2713 


D3E1 


35 


44 




2714 


D3E3 


5A 






2715 


D3E4 


26 


F0 




2716 


D3E6 


9E 


Fl 




2717 


D3E8 


CE 


09 


89 


2718 


D3EB 


EF 


0B 




2719 


D3ED 


D6 


D8 




2720 


D3EF 


E4 


67 




2721 


D3F1 


27 


09 




2722 


D3F3 


6F 


67 




2723 


D3F5 


EC 


6A 




2724 


D3F7 


8A 


80 




2725 


D3F9 


ED 


88 


13 


2726 


D3FC 


7E 


CA 


58 


2727 










2728 










2729 


D3FF 


8D 


38 




2730 


D401 


8D 


2B 




2731 


D403 


34 


10 




2732 


D405 


8D 


27 




2733 


D407 


34 


10 




2734 


D409 


C6 


02 




2735 


D40B 


BD 


D4 


Al 


2736 


D40E 


CE 


06 


80 


2737 


D411 


35 


10 




2738 


D413 


8D 


05 




2739 


D415 


CE 


06 


00 


2740 


D418 


35 


10 




2741 


D41A 


34 


50 




2742 


D41C 


C6 


80 




2743 


D41E 


BD 


B5 


0F 


2744 


D421 


33 


84 




2745 


D423 


35 


10 




2746 


D425 


E7 


84 




2747 


D427 


EF 


02 




2748 


D429 


35 


10 




2749 


D42B 


7E 


A5 


9A 


2750 










2751 


D42E 


BD 


B2 


6D 


2752 


D431 


8E 


B3 


57 


2753 


D434 


8D 


2F 




2754 


D436 


7E 


Bl 


46 


2755 










2756 










2757 


D439 


BD 


B7 


0B 


2758 


D43C 


CI 


03 




2759 


D43E 


22 


1C 




2760 


D440 


34 


04 




2761 


D442 


BD 


B7 


38 


2762 


D445 


CI 


22 




2763 


D447 


22 


13 




2764 


D449 


34 


04 




2765 


D44B 


BD 


B7 


38 


2766 


D44E 


D7 


ED 




2767 


D450 


5A 






2768 


D451 


CI 


11 




2769 


D453 


22 


07 




2770 


D455 


35 


06 




2771 


D457 


97 


EC 




2772 


D459 


D7 


EB 




2773 


D45B 


39 






2774 


D45C 


7E 


B4 


4A 


2775 










2776 


D45F 


BD 


B2 


6D 


2777 


D462 


8E 


Bl 


56 


2778 


D465 


D6 


EB 




2779 


D467 


DE 


EC 




2780 


D469 


34 


44 




2781 


D46B 


AD 


84 




2782 


D46D 


35 


44 




2783 


D46F 


D7 


EB 




2784 


D471 


DF 


EC 





LDX 


FCBTMP 


LDD 


#SECLEN 


STD 


FCBLST.X 


LDB 


$06, S 


BEQ 


LD3E6 


LDB 


VD8 


ANDB 


$07, S 


BEQ 


LD3CC 


LDD 


$02, S 


ADDB 


$06, S 


ADCA 


#$00 


JSR 


LC2CC 


LDX 


FCBTMP 


LDU 


$04, S 


STU 


FCBREC.X 


LDB 


$06, S 


LDU 


ARYEND 


PSHS 


U,B 


LDX 


FCBTMP 


STU 


FCBBUF.X 


JSR 


LC2D0 


INC 


$01, S 


PULS 


B,U 


DECB 




BNE 


LD3D6 


LDX 


FCBTMP 


LDU 


#DFLBUF 


STU 


FCBBUF.X 


LDB 


VD8 


ANDB 


$07, S 


BEQ 


LD3FC 


CLR 


$07, S 


LDD 


10, S 


ORA 


#$80 


STD 


FCBLST.X 


JMP 


LCA58 


:ommai 

BSR 


LD439 


BSR 


LD42E 


PSHS 


X 


BSR 


LD42E 


PSHS 


X 


LDB 


#$02 


JSR 


LD4A1 


LDU 


#DBUF0+128 


PULS 


X 


BSR 


LD41A 


LDU 


#DBUF0 


PULS 


X 


PSHS 


u,x 


LDB 


#128 


JSR 


LB50F 


LEAU 


,x 


PULS 


X 


STB 


,x 


STU 


$02, X 


PULS 


X 


JMP 


LA59A 



LD42B 

LD42E JSR SYNCOMMA 

LDX #LB357 

BSR LD465 

LD436 JMP LB146 

* EVALUATE DRIVE, TRACK AND SECTOR NUMBERS 



JSR 


EVALEXPB 


CMPB 


#$03 


BHI 


LD45C 


PSHS 


B 


JSR 


LB738 


CMPB 


#TRKMAX-1 


BHI 


LD45C 


PSHS 


B 


JSR 


LB738 


STB 


DSEC 


DECB 




CMPB 


SSECMAX-1 


BHI 


LD45C 


PULS 


A,B 


STA 


DCTRK 


STB 


DCDRV 


RTS 




JMP 


LB44A 


JSR 


SYNCOMMA 


LDX 


#LB156 


LDB 


DCDRV 


LDU 


DCTRK 


PSHS 


U,B 


JSR 


,x 


PULS 


B,U 


STB 


DCDRV 


STU 


DCTRK 



POINT X TO THE 'SYSTEM' FCB 

* SET THE NUMBER OF BYTES IN THE LAST SECTOR 

* OF THE FILE EQUAL TO ONE SECTOR LENGTH 
=GET THE NUMBER OF SECTORS TO MOVE AND 
=BRANCH IF NONE LEFT 

*GRAB THE 'GET'7'PUT' FLAG, 'AND' IT WITH THE 

*GRAN TEST FLAG - BRANCH IF 'GET'ING DATA OR THIS IS 

*NOT THE FIRST TIME THROUGH THE LOOP 

=GET THE NUMBER OF SECTORS REMAINING TO BE COPIED AND 

=ADD THE NUMBER TO BE COPIED THIS TIME THROUGH LOOP 

*'PUT' THE LAST RECORD IN THE FILE TO THE SYSTEM FCB. 
*THE RECORD NUMBER IS IN ACCD. 
POINT X TO THE SYSTEM FCB 

* GET THE CURRENT RECORD NUMBER 

* AND SAVE IT IN THE FCB 

GET THE NUMBER OF THE RECORD (SECTOR) TO MOVE 

END OF ARRAYS IS THE START OF THE COPY FREE RAM BUFFER 

SAVE SECTOR COUNTER AND BUFFER POINTER ON THE STACK 

POINT X TO SYSTEM FCB 

*SET THE RANDOM FILE BUFFER POINTER TO THE 'COPY' RAM BUFFER 

*THIS WILL CAUSE THE SYSTEM TO 'HANG' IF AN ERROR OCCURS DURING COPY. 

GO 'GET' OR 'PUT' DATA TO THE SYSTEM FCB 

ADD 256 (ONE SECTOR) TO THE BUFFER POINTER 

GET THE SECTOR COUNTER AND BUFFER POINER 

DECREMENT SECTOR COUNTER 

BRANCH IF ALL SECTORS NOT DONE 

POINT X TO SYSTEM FCB 

* RESET THE RANDOM FILE BUFFER POINTER FOR THE SYSTEM 

* FCB TO THE BOTTOM OF RANDOM FILE BUFFER AREA 
=GRAB THE 'GET'7'PUT' FLAG, 'AND' IT WITH THE GRAN 
=TEST FLAG - CLOSE THE FILE IF 'GET'ING DATA AND 
=THIS IS NOT THE FIRST TIME THROUGH THE LOOP 
RESET THE GRAN TEST FLAG IF FIRST TIME THROUGH LOOP 
*GET THE NUMBER OF BYTES IN THE LAST SECTOR, 

*'OR' IN THE PRE-SAVED FLAG AND 

*SAVE THE NUMBER OF BYTES IN THE LAST SECTOR IN THE FCB 

CLOSE THE FILE 



GET THE DRIVE, TRACK AND SECTOR NUMBERS 

* EVALUATE STRING VARIABLE 1 AND SAVE 

* THE DESCRIPTOR ADDRESS ON THE STACK 
= EVALUATE STRING VARIABLE 2 AND SAVE 
= THE DESCRIPTOR ADDRESS ON THE STACK 
DSKCON READ OP CODE 

REAO A SECTOR INTO DBUF0 

POINT U TO TOP HALF OF DBUF0 

GET STRING 2 DESCRIPTOR ADDRESS 

PUT STRING 2 INTO STRING SPACE 

POINT U TO BOTTOM HALF OF DBUF0 

GET STRING 1 DESCRIPTOR ADDRESS 

PUT STRING DESCRIPTOR S SOURCE POINTER ON THE STACK 

* 

* RESERVE 128 BYTES IN STRING SPACE 
POINT U TO RESERVED STRING SPACE 
GET STRING DESCRIPTOR ADDRESS 

* SAVE DESCRIPTOR DATA (LENGTH AND ADDRESS) 

* OF THE NEW STRING 

GET THE SOURCE (DBUF0) POINTER 

MOVE SECTOR DATA FROM DBUF0 TO STRING SPACE 

SYNTAX CHECK FOR A COMMA 

POINT X TO EVALUATE VARIABLE ROUTINE 

EVALUATE A VARIABLE 

'TM' ERROR IF NUMERIC VARIABLE 



EVALUATE EXPRESSION, RETURN VALUE IN ACCB 

* COMPARE TO 3 (HIGHEST DRIVE NUMBER) - 

* 'FC' ERROR IF IT S > 3 

SAVE DRIVE NUMBER ON THE STACK 

SYNTAX CHECK FOR COMMA. EVALUATE EXPRESSION (TRACK NUMBER) 

* CHECK FOR MAXIMUM TRACK NUMBER 

* 'FC ERROR IF TRACK NUMBER > 34 
SAVE TRACK NUMBER ON THE STACK 

SYNTAX CHECK FOR COMMA, EVALUATE EXPRESSION (SECTOR NUMBER) 

SAVE SECTOR NUMBER IN DSKCON VARIABLE 

♦USELESS INSTRUCTION. NEXT INSTRUCTION SHOULD JUST 

♦CHECK FOR MAXIMUM SECTOR NUMBER (SECMAX) 

'FC ERROR IF SECTOR NUMBER TOO BIG 

* GET TRACK AND DRIVE NUMBER OFF OF 

* THE STACK AND SAVE IN DSKCON 

* VARIABLES 

JUMP TO 'FC ERROR 

SYNTAX CHECK FOR COMMA 

POINT X TO 'EVALUATE EXPRESSION' ROUTINE ADDRESS 

* GET THE DSKCON DRIVE, TRACK AND 

* SECTOR VALUES AND SAVE THEM ON THE STACK 
* 

GO EVALUATE AN EXPRESSION OR A VARIABLE 

* GET THE DRIVE, TRACK AND SECTOR 

* NUMBERS OFF OF THE STACK AND PUT 

* THEM BACK INTO THE DSKCON VARIABLES 



DISK BASIC UNRAVELLED II 



APPENDIX C 
DISASSEMBLY OF DISK BASIC 1.0 



ORIGIN:SPECTRAL ASSOC 
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2785 


D473 


39 








RTS 




2786 
















2787 










* DSKO$ 


COMMAND 


2788 


D474 


8D 


C3 




DSKO 


BSR 


LD439 


2789 


D476 


8D 


E7 






BSR 


LD45F 


2790 


D478 


8D 


BC 






BSR 


LD436 


2791 


D47A 


9E 


52 






LDX 


FPA0+2 


2792 


D47C 


34 


10 






PSHS 


X 


2793 


D47E 


8D 


DF 






BSR 


LD45F 


2794 


D480 


BD 


B6 


54 




JSR 


LB654 


2795 


D483 


34 


14 






PSHS 


X,B 


2796 


D485 


5F 








CLRB 




2797 


D486 


8E 


06 


00 




LDX 


#DBUF0 


2798 


D489 


6F 


80 




LD489 


CLR 


,x+ 


2799 


D48B 


5A 








DECB 




2800 


D48C 


26 


FB 






BNE 


LD489 


2801 


D48E 


35 


14 






PULS 


B,X 


2802 


D490 


CE 


06 


80 




LDU 


#DBUF0+128 


2803 


D493 


8D 


96 






BSR 


LD42B 


2804 


D495 


35 


10 






PULS 


X 


2805 


D497 


BD 


B6 


59 




JSR 


LB659 


2806 


D49A 


CE 


06 


00 




LDU 


#DBUF0 


2807 


D49D 


8D 


8C 






BSR 


LD42B 


2808 


D49F 


C6 


03 






LDB 


#$03 


2809 


D4A1 


8E 


06 


00 


LD4A1 


LDX 


#DBUF0 


2810 


D4A4 


9F 


EE 






STX 


DCBPT 


2811 


D4A6 


D7 


EA 






STB 


DCOPC 


2812 


D4A8 


7E 


D5 


FF 




JMP 


LD5FF 


2813 
















2814 










* DSKIN1 


. COMMAND 


2815 


D4AB 


10 


27 


Dl 70 


DSKINI 


LBEO 


LA61F 


2816 


D4AF 


BD 


Dl 


69 




JSR 


LD169 


2817 


D4B2 


C6 


04 






LDB 


#$04 


2818 


D4B4 


9D 


A5 






JSR 


GETCCH 


2819 


D4B6 


27 


0C 






BEQ 


LD4C4 


2820 


D4B8 


BD 


B7 


38 




JSR 


LB738 


2821 


D4BB 


CI 


11 






CMPB 


#17 


2822 


D4BD 


10 


24 


DF 89 




LBHS 


LB44A 


2823 


D4C1 


BD 


A5 


C7 




JSR 


LA5C7 


2824 


D4C4 


34 


04 




LD4C4 


PSHS 


B 


2825 


D4C6 


8E 


07 


12 




LDX 


#DBUF1+SECMAX 


2826 


D4C9 


C6 


12 






LDB 


SSECMAX 


2827 


D4CB 


6F 


82 




LD4CB 


CLR 


,-x 


2828 


D4CD 


5A 








DECB 




2829 


D4CE 


26 


FB 






BNE 


LD4CB 


2830 


D4D0 


4F 








CLRA 




2831 


D4D1 


20 


0D 






BRA 


LD4E0 


2832 
















2833 










* CALCULATE LOGICAL SECTOR NUMBERS 


2834 


D4D3 


EB 


E4 




LD4D3 


ADDB 


,S 


2835 


D4D5 


5C 






LD4D5 


INCB 




2836 


D4D6 


C0 


12 




LD4D6 


SUBB 


#SECMAX 


2837 


D4D8 


24 


FC 






BHS 


LD4D6 


2838 


D4DA 


CB 


12 






ADDB 


#SECMAX 


2839 


D4DC 


6D 


85 






TST 


B,X 


2840 


D4DE 


26 


F5 






BNE 


LD4D5 


2841 


D4E0 


4C 






LD4E0 


INCA 




2842 


D4E1 


A7 


85 






STA 


B,X 


2843 


D4E3 


81 


12 






CMPA 


#SECMAX 


2844 


D4E5 


25 


EC 






BLO 


LD4D3 


2845 


D4E7 


32 


61 






LEAS 


$01, S 


2846 


D4E9 


8E 


22 


0F 




LDX 


#DFLBUF+$1888-2 


2847 


D4EC 


9C 


27 






CMPX 


MEMSIZ 


2848 


D4EE 


10 


22 


D7 52 




LBHI 


LAC44 


2849 


D4F2 


BD 


CA 


3B 




JSR 


DVEC7 


2850 


D4F5 


73 


09 


5C 




COM 


DRESFL 


2851 


D4F8 


10 


CE 


08 00 




LDS 


#DBUF1+SECLEN 


2852 


D4FC 


BD 


95 


AC 




JSR 


L95AC 


2853 


D4FF 


86 


00 






LDA 


#$00 


2854 


D501 


97 


EA 






STA 


DCOPC 


2855 


D503 


BD 


D5 


FF 




JSR 


LD5FF 


2856 


D506 


7F 


09 


85 




CLR 


RDYTMR 


2857 


D509 


86 


C0 






LDA 


#$C0 


2858 


D50B 


B7 


FF 


48 




STA 


FDCREG 


2859 


D50E 


BD 


D6 


DE 




JSR 


LD6DE 


2860 


D511 


10 


26 


00 86 




LBNE 


LD59B 


2861 


D515 


0F 


EC 






CLR 


DCTRK 


2862 


D517 


20 


1A 






BRA 


LD533 


2863 


D519 


81 


16 




LD519 


CMPA 


#22 


2864 


D51B 


25 


08 






BLO 


LD525 


2865 


D51D 


B6 


09 


86 




LDA 


DRGRAM 


2866 


D520 


8A 


10 






ORA 


#$10 


2867 


D522 


B7 


FF 


40 




STA 


DSKREG 


2868 


D525 


86 


53 




LD525 


LDA 


#$53 


2869 


D527 


B7 


FF 


48 




STA 


FDCREG 


2870 


D52A 


IE 


88 






EXG 


A, A 


2871 


D52C 


IE 


88 






EXG 


A, A 


2872 


D52E 


BD 


D6 


DE 




JSR 


LD6DE 


2873 


D531 


26 


68 






BNE 


LD59B 


2874 


D533 


BD 


D6 


FD 


LD533 


JSR 


LD6FD 


2875 


D536 


8D 


6C 






BSR 


$D5A4 


2876 


D538 


10 


8E 


FF 4B 




LDY 


#FDCREG+3 


2877 


D53C 


1A 


50 






ORCC 


#$50 


2878 


D53E 


8E 


D5 


62 




LDX 


#LD562 


2879 


D541 


BF 


09 


83 




STX 


DNMISV 


2880 


D544 


8E 


09 


89 




LDX 


#DFLBUF 



GET THE DRIVE, TRACK AND SECTOR NUMBERS 
GET THE DESCRIPTOR OF STRING 1 
'TM' ERROR IF NUMERIC EXPRESSION 

* GET STRING 1 DESCRIPTOR ADDRESS 

* AND SAVE IT ON THE STACK 
GET THE DESCRIPTOR OF STRING 2 

*GET LENGTH AND ADDRESS OF STRING 2 AND 

*SAVE THEM ON THE STACK 

SET CLEAR COUNTER TO 256 (FULL SECTOR BUFFER) 

USE DBUF0 AS THE DSKO$ 170 BUFFER 

CLEAR A BYTE IN 170 BUFFER 

DECREMENT CLEAR COUNTER 

BRANCH IF ALL 256 BYTES NOT CLEARED 

GET THE LENGTH AND ADDRESS OF STRING 2 

POINT X TO STRING 2 DESTINATION 

MOVE STRING 2 DATA INTO DBUF0 

POINT X TO STRING 1 DESCRIPTOR 

GET THE LENGTH AND ADDRESS OF STRING 1 

POINT U TO STRING 1 DESTINATION 

MOVE STRING 1 DATA INTO DBUF0 

DSKCON WRITE OP CODE 

POINT X TO 170 BUFFER (DBUF0) 

* 

* SAVE NEW DSKCON BUFFER POINTER AND OP CODE VARIABLES 
GO WRITE OUT A SECTOR 



BRANCH TO ' DN ' ERROR IF NO DRIVE NUMBER SPECIFIED 

CALCULATE DRIVE NUMBER 

SKIP FACTOR DEFAULT VALUE 

GET CURRENT INPUT CHAR FROM BASiC 

BRANCH IF END OF LINE 

SYNTAX CHECK FOR COMMA AND EVALUATE EXPRESSION 

MAX VALUE OF SKIP FACTOR = 16 

'ILLEGAL FUNCTION CALL' IF BAD SKIP FACTOR 

SYNTAX ERROR IF MORE CHARACTERS ON THE LINE 

SAVE SKIP FACTOR ON THE STACK 

POINT TO END OF LOGICAL SECTOR NUMBER STORAGE AREA 

18 SECTORS PER TRACK 

CLEAR A BYTE IN THE BUFFER 

CLEARED ALL 18? 

KEEP GOING IF NOT 

RESET PHYSICAL SECTOR COUNTER 

START WITH FIRST PHYSICAL SECTOR = 1 



ADD SKIP FACTOR TO LOGICAL SECTOR COUNTER 

ADD ONE TO LOGICAL SECTOR COUNTER 

SUBTRACT MAX NUMBER OF SECTORS 

BRANCH UNTIL > ACCB >= -18 

ADD 18, NOW ACCB IS 0-17 

IS ANYTHING STORED HERE ALREADY? 

YES - GET ANOTHER SECTOR 

* INCREMENT PHYSICAL SECTOR NUMBER AND 

* SAVE IT IN THE RAM BUFFER 
FINISHED WITH ALL SECTORS? 
NO - KEEP GOING 

REMOVE SKIP FACTOR FROM STACK 

GET TOP OF RAM USED BY DSKINI 

IS IT > CLEARED AREA? 

'OUT OF MEMORY' ERROR 

CLOSE ALL FILES 

SET RESET FLAG TO $FF 



CLEARED AREA 



THIS WILL CAUSE A DOS RESET 
SET STACK TO TOP OF DBUF1 

RESET SAM TO DISPLAY PAGE ZERO AND ALPHA GRAPHICS 
YOU COULD DELETE THIS INSTRUCTION AND CHANGE FOLLOWING STA TO CLR 
RESTORE HEAD TO TRACK ZERO DSKCON OP CODE 
RESTORE HEAD TO TRACK ZERO 
RESET THE READY TIMER 

* FOC READ ADDRESS CODE 
* 

CHECK DRIVE READY - WAIT UNTIL READY 

BRANCH IF NOT READY - ISSUE AN ERROR 

RESET TRACK NUMBER 

START THE FORMATTING PROCESS 

= CHECK FOR TRACK 22 ( PRECOMPENSATION) 

= AND BRANCH IF < TRACK 22 - NO PRECOMP 

* GET THE RAM IMAGE OF DSKREG, 'OR' 

* IN THE PRECOMPENSATION FLAG AND 

* SEND IT TO DSKREG 

= GET STEP IN COMMAND 

= AND SEND IT TO THE 1793 

* DELAY AFTER ISSUING COMMAND TO 1793 

CHECK DRIVE READY 

BRANCH IF NOT READY - ISSUE AN ERROR 

WAIT A WHILE 

BUILD A FORMATTED TRACK IN RAM 

Y POINTS TO 1793 DATA REGISTER 

DISABLE INTERRUPTS 

* GET RETURN ADDRESS AND STORE 

* IT IN THE NON MASKABLE INTERRUPT VECTOR 
POINT X TO THE FORMATTED TRACK RAM IMAGE 
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2881 


D547 


B6 


FF 


48 


2882 


D54A 


86 


FF 




2883 


D54C 


B7 


09 


82 


2884 


D54F 


C6 


F4 




2885 


D551 


F7 


FF 


48 


2886 


D554 


B6 


09 


86 


2887 


D557 


8A 


80 




2888 


D559 


B7 


FF 


40 


2889 


D55C 


E6 


80 




2890 


D55E 


E7 


A4 




2891 


D560 


20 


FA 




2892 










2893 


D562 


B6 


FF 


48 


2894 


D565 


1C 


AF 




2895 


D567 


84 


44 




2896 


D569 


97 


F0 




2897 


D56B 


26 


2E 




2898 


D56D 


0C 


EC 




2899 


D56F 


96 


EC 




2900 


D571 


81 


23 




2901 


D573 


26 


A4 




2902 










2903 










2904 


D575 


86 


02 




2905 


D577 


97 


EA 




2906 


D579 


8E 


06 


00 


2907 


D57C 


9F 


EE 




2908 


D57E 


CE 


07 


00 


2909 


D581 


4F 






2910 


D582 


97 


EC 




2911 


D584 


5F 






2912 


D585 


A6 


C5 




2913 


D587 


97 


ED 




2914 


> D589 


BD 


D5 


FF 


2915 


D58C 


5C 






2916 


D58D 


CI 


12 




2917 


D58F 


25 


F4 




2918 


D591 


96 


EC 




2919 


D593 


4C 






2920 


D594 


81 


23 




2921 


D596 


25 


EA 




2922 


D598 


7E 


Dl 


E0 


2923 


D59B 


7F 


09 


86 


2924 


D59E 


7F 


FF 


40 


2925 


> D5A1 


7E 


D6 


0E 


2926 










2927 










2928 










2929 


D5A4 


8E 


09 


89 


2930 


D5A7 


CC 


20 


4E 


2931 


D5AA 


8D 


29 




2932 


D5AC 


5F 






2933 


D5AD 


34 


04 




2934 


D5AF 


CE 


07 


00 


2935 


D5B2 


E6 


C5 




2936 


D5B4 


D7 


ED 




2937 


D5B6 


CE 


D5 


E7 


2938 


D5B9 


C6 


03 




2939 


D5BB 


8D 


IE 




2940 


D5BD 


96 


EC 




2941 


D5BF 


A7 


80 




2942 


D5C1 


6F 


80 




2943 


D5C3 


96 


ED 




2944 


D5C5 


A7 


80 




2945 


D5C7 


C6 


09 




2946 


D5C9 


8D 


10 




2947 


D5CB 


35 


04 




2948 


D5CD 


5C 






2949 


D5CE 


CI 


12 




2950 


D5D0 


25 


DB 




2951 


D5D2 


CC 


C8 


4E 


2952 










2953 










2954 


D5D5 


E7 


80 




2955 


D5D7 


4A 






2956 


D5D8 


26 


FB 




2957 


D5DA 


39 






2958 


D5DB 


34 


04 




2959 


D5DD 


EC 


CI 




2960 


D5DF 


8D 


F4 




2961 


D5E1 


35 


04 




2962 


D5E3 


5A 






2963 


D5E4 


26 


F5 




2964 


D5E6 


39 






2965 










2966 










2967 










2968 










2969 










2970 










2971 










2972 










2973 


D5E7 


08 


00 




2974 


D5E9 


03 


F5 




2975 


D5EB 


01 


FE 




2976 













LDA 


FDCREG 






LDA 


#$FF 






STA 


NMIFLG 






LDB 


#$F4 






STB 


FDCREG 






LDA 


DRGRAM 






ORA 


#$80 






STA 


DSKREG 




LD55C 


LDB 


,x+ 






STB 


,Y 






BRA 


LD55C 




LD562 


LDA 


FDCREG 






ANDCC#$AF 






ANDA 


#$44 






STA 


DCSTA 






BNE 


LD59B 






INC 


DCTRK 






LDA 


DCTRK 






CMPA 


#TRKMAX 






BNE 


LD519 




* VERIFY 


THAT 


ALL SECTORS ARE READABLE 




LDA 


#$02 






STA 


DCOPC 






LDX 


#DBUF0 






STX 


DCBPT 






LDU 


#DBUF1 






CLRA 






LD582 


STA 

CLRB 


DCTRK 




LD585 


LDA 


B,U 






STA 


DSEC 






JSR 


LD5FF 






INCB 








CMPB 


#SECMAX 






BLO 


LD585 






LDA 


DCTRK 






INCA 








CMPA 


#TRKMAX 






BLO 


LD582 






JMP 


LD1E0 




LD59B 


CLR 


DRGRAM 






CLR 


DSKREG 






JMP 


LD60E 





RESET STATUS OF THE 1793 

* ENABLE THE NMI FLAG TO VECTOR 

* OUT OF AN I/O LOOP UPON AN NMI INTERRUPT 
= GET WRITE TRACK COMMAND AND 

= SEND TO 1793 

* GET THE DSKREG RAM IMAGE AND 'OR' IN THE 

* FLAG WHICH WILL ENABLE THE 1793 TO HALT 

* THE 6809. SEND RESULT TO DSKREG 

= GET A BYTE FROM THE FORMATTED TRACK 
= RAM IMAGE, SEND IT TO THE 1793 AND 
= LOOP BACK TO GET ANOTHER BYTE 

GET STATUS 
ENABLE INTERRUPTS 

* KEEP ONLY WRITE PROTECT S LOST DATA 

* AND SAVE IT IN THE DSKCON STATUS BYTE 
BRANCH IF ERROR 

SKIP TO THE NEXT TRACK 
GET THE TRACK NUMBER 
WAS IT THE LAST TRACK 
NO - KEEP GOING 



= GET THE DSKCON READ OP CODE 

= AND SAVE IT IN THE DSKCON VARIABLE 

* POINT THE DSKCON BUFFER POINTER 

* TO DBUF0 

POINT U TO THE LOGICAL SECTOR NUMBERS 

RESET THE TRACK COUNTER TO ZERO 

SET THE DSKCON TRACK VARIABLE 

RESET THE SECTOR COUNTER 

GET THE PHYSICAL SECTOR NUMBER 

SAVE DSKCON SECTOR VARIABLE 

READ A SECTOR 

* INCREMENT THE SECTOR COUNTER 

* AND COMPARE IT TO MAXIMUM SECTOR NUMBER 

* AND KEEP LOOPING IF MORE SECTORS LEFT 
= GET THE CURRENT TRACK NUMBER 

= ADD ONE TO IT, COMPARE TO THE MAXIMUM TRACK 

= NUMBER AND KEEP LOOPING IF 

= THERE ARE STILL TRACKS TO DO 

GO CHECK FOR A DOS RESET 

CLEAR RAM IMAGE OF DSKREG 

CLEAR DSKREG - TURN DISK MOTORS OFF 

PROCESS DRIVES NOT READY ERROR 



BUILD A FORMATTED TRACK OF DATA IN RAM STARTING AT DFLBUF. 



LDX 


#DFLBUF 


LDD 


#$204E 


BSR 


LD5D5 


CLRB 




PSHS 


B 


LDU 


#DBUF1 


LDB 


B,U 


STB 


DSEC 


LDU 


#LD5E7 


LDB 


#$03 


BSR 


LD5DB 


LDA 


DCTRK 


STA 


,x+ 


CLR 


,x+ 


LDA 


DSEC 


STA 


,x+ 


LDB 


#$09 


BSR 


LD5DB 


PULS 


B 


INCB 




CMPB 


#SECMAX 


BLO 


LD5AD 


LDD 


#$C84E 


\CCA 


BYTES OF 


STB 


,x+ 


DECA 




BNE 


LD5D5 


RTS 




PSHS 


B 


LDD 


,U++ 


BSR 


LD5D5 


PULS 


B 


DECB 




BNE 


LD5DB 


RTS 





START TRACK BUFFER AT DFLBUF 

GET SET TO WRITE 32 BYTES OF $4E 

GO WRITE GAP IV 

RESET SECTOR COUNTER 

SAVE SECTOR COUNTER 

POINT U TO THE TABLE OF LOGICAL SECTORS 

* GET LOGICAL SECTOR NUMBER FROM TABLE AND 

* SAVE IT IN THE DSKCON VARIABLE 

POINT U TO TABLE OF SECTOR FORMATTING DATA 

* GET FIRST 3 DATA BLOCKS AND 

* WRITE THEM TO BUFFER 

= GET TRACK NUMBER AND STORE IT 

= IN THE RAM BUFFER 

CLEAR A BYTE (SIDE NUMBER) IN BUFFER 

* GET SECTOR NUMBER AND 

* STORE IT IN THE BUFFER 

= GET THE LAST NINE DATA BLOCKS AND 

= WRITE THEM TO THE BUFFER 

GET SECTOR COUNTER 

NEXT SECTOR 

18 SECTORS PER TRACK 

BRANCH IF ALL SECTORS NOT DONE 

WRITE 200 BYTES OF $4E AT END OF TRACK 



STORE A BYTE IN THE BUFFER 

DECREMENT COUNTER 

BRANCH IF ALL BYTES NOT MOVED 

SAVE THE COUNTER ON THE STACK 

GET TWO BYTES OF DATA FROM THE TABLE 

WRITE ACCA BYTES OF ACCB INTO THE BUFFER 

* GET THE COUNTER BACK, DECREMENT 

* IT AND BRANCH IF ALL DATA BLOCKS 

* NOT DONE 



* DATA USED TO FORMAT A SECTOR ON THE DISK 

* THESE DATA ARE CLOSE TO THE IBM SYSTEM 34 FORMAT FOR 256 BYTE SECTORS. 

* DOUBLE DENSITY. THE FORMAT GENERALLY CONFORMS TO THAT SPECIFIED ON THE 

* 1793 DATA SHEET. THE GAP SIZES HAVE BEEN REDUCED TO THE MINIMUM 

* ALLOWABLE. THE IBM FORMAT USES $40 AS THE FILL CHARACTER FOR THE DATA 

* BLOCKS WHILE COLOR DOS USES AN $FF AS THE FILL CHARACTER. 
LD6D4 FCB 8,0 SYNC FIELD 

FCB 3,$F5 

FCB 1,$FE ID ADDRESS MARK (AMD 

* TRACK, SIDE, AND SECTOR NUMBERS ARE INSERTED HERE 
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2977 


D5ED 


01 


01 






FCB 


1,1 


2978 


D5EF 


01 


F7 






FCB 


1,$F7 


2979 


D5F1 


16 


4E 






FCB 


22,$4E 


2980 


D5F3 


0C 


00 






FCB 


12,0 


2981 


D5F5 


03 


F5 






FCB 


3,$F5 


2982 


D5F7 


01 


FB 






FCB 


1,$FB 


2983 


D5F9 


00 


FF 






FCB 


0,$FF 


2984 


D5FB 


01 


F7 






FCB 


1,$F7 


2985 


D5FD 


18 


4E 






FCB 


24,$4E 


2986 
















2987 
















2988 


D5FF 


34 


04 




LD5FF 


PSHS 


B 


2989 


D601 


C6 


05 






LDB 


#$05 


2990 


D603 


F7 


09 


88 




STB 


ATTCTR 


2991 


D606 


35 


04 






PULS 


B 


2992 


D608 


8D 


62 




LD608 


BSR 


DSKCON 


2993 


D60A 


0D 


F0 






TST 


DCSTA 


2994 


D60C 


27 


0D 






BEQ 


LD61B 


2995 


D60E 


96 


F0 




LD60E 


LDA 


DCSTA 


2996 


D610 


C6 


3C 






LDB 


#2*30 


2997 


D612 


85 


40 






BITA 


#$40 


2998 


D614 


26 


02 






BNE 


LD618 


2999 


D616 


C6 


28 




LD616 


LDB 


#2*20 


3000 


D618 


7E 


AC 


46 


LD618 


JMP 


LAC46 


3001 


D61B 


34 


02 




LD61B 


PSHS 


A 


3002 


D61D 


96 


EA 






LDA 


DCOPC 


3003 


D61F 


81 


03 






CMPA 


#$03 


3004 


D621 


35 


02 






PULS 


A 


3005 


D623 


26 


2A 






BNE 


LD64F 


3006 


D625 


7D 


09 


87 




TST 


DVERVL 


3007 


D628 


27 


25 






BEQ 


LD64F 


3008 


D62A 


34 


56 






PSHS 


U,X,B,A 


3009 


D62C 


86 


02 






LDA 


#$02 


3010 


D62E 


97 


EA 






STA 


DCOPC 


3011 


D630 


DE 


EE 






LDU 


DCBPT 


3012 


D632 


8E 


07 


00 




LDX 


#DBUF1 


3013 


D635 


9F 


EE 






STX 


DCBPT 


3014 


D637 


8D 


33 






BSR 


DSKCON 


3015 


D639 


DF 


EE 






STU 


DCBPT 


3016 


D63B 


86 


03 






LDA 


#$03 


3017 


D63D 


97 


EA 






STA 


DCOPC 


3018 


D63F 


96 


F0 






LDA 


DCSTA 


3019 


D641 


26 


0D 






BNE 


LD650 


3020 


D643 


5F 








CLRB 




3021 


D644 


A6 


80 




LD644 


LDA 


,x+ 


3022 


D646 


Al 


C0 






CMPA 


,u+ 


3023 


D648 


26 


06 






BNE 


LD650 


3024 


D64A 


5A 








DECB 




3025 


D64B 


26 


F7 






BNE 


LD644 


3026 


D64D 


35 


56 






PULS 


A,B,X,U 


3027 


D64F 


39 






LD64F 


RTS 




3028 


D650 


35 


56 




LD650 


PULS 


A,B,X,U 


3029 


D652 


7A 


09 


88 




DEC 


ATTCTR 


3030 


D655 


26 


Bl 






BNE 


LD608 


3031 


D657 


C6 


48 






LDB 


#2*336 


3032 


D659 


20 


BD 






BRA 


LD618 


3033 
















3034 










* VERIFY 


COMMAND 


3035 


D65B 


5F 






VERIFY 


CLRB 




3036 


D65C 


81 


AA 






CMPA 


#$AA 


3037 


D65E 


27 


07 






BEQ 


LD667 


3038 


D660 


53 








COMB 




3039 


D661 


81 


88 






CMPA 


#$88 


3040 


D663 


10 


26 


DC 10 




LBNE 


LB277 


3041 


D667 


F7 


09 


87 


LD667 


STB 


DVERVL 


3042 


D66A 


0E 


9F 






JMP 


GETNCH 


3043 
















3044 










* DSKCON 


ROUTINE 


3045 


D66C 


34 


76 




DSKCON 


PSHS 


U,Y,X,B 


3046 


D66E 


86 


05 






LDA 


#$05 


3047 


D670 


34 


02 






PSHS 


A 


3048 


D672 


7F 


09 


85 


LD672 


CLR 


RDYTMR 


3049 


D675 


D6 


EB 






LDB 


DCDRV 


3050 


D677 


8E 


D7 


AA 




LDX 


#LD7AA 


3051 


D67A 


B6 


09 


86 




LDA 


DRGRAM 


3052 


D67D 


84 


A8 






ANDA 


#$A8 


3053 


D67F 


AA 


85 






ORA 


B,X 


3054 


D681 


8A 


20 






ORA 


#$20 


3055 


D683 


D6 


EC 






LDB 


DCTRK 


3056 


D685 


CI 


16 






CMPB 


#22 


3057 


D687 


25 


02 






BLO 


LD68B 


3058 


D689 


8A 


10 






ORA 


#$10 


3059 


D68B 


IF 


89 




LD68B 


TFR 


A,B 


3060 


D68D 


8A 


08 






ORA 


#$08 


3061 


D68F 


B7 


09 


86 




STA 


DRGRAM 


3062 


D692 


B7 


FF 


40 




STA 


DSKREG 


3063 


D695 


C5 


08 






BITB 


#$08 


3064 


D697 


26 


06 






BNE 


LD69F 


3065 


D699 


BD 


A7 


Dl 




JSR 


LA7D1 


3066 


D69C 


BD 


A7 


Dl 




JSR 


LA7D1 


3067 


D69F 


8D 


3D 




LD69F 


BSR 


LD6DE 


3068 


D6A1 


26 


0A 






BNE 


LD6AD 


3069 


D6A3 


0F 


F0 






CLR 


DCSTA 


3070 


D6A5 


8E 


D7 


A2 




LDX 


#LD7A2 


3071 


D6A8 


D6 


EA 






LDB 


DCOPC 


3072 


D6AA 


58 








ASLB 





SECTOR SIZE (256 BYTE SECTORS) 

CRC REQUEST 

GAP II (POST-ID GAP) 

SYNC FIELD 

DATA ADDRESS MARK (AM2) 
DATA FIELD (256 BYTES) 
CRC REQUEST 
GAP III (POST DATA GAP) 



SAVE ACCB 

5 RETRIES 

SAVE RETRY COUNT 

RESTORE ACCB 

GO EXECUTE COMMAND 

CHECK STATUS 

BRANCH IF NO ERRORS 

GET DSKCON ERROR STATUS 

'WRITE PROTECTED' ERROR 

CHECK BIT 6 OF STATUS 

BRANCH IF WRITE PROTECT ERROR 

'I/O ERROR' 

JUMP TO ERROR DRIVER 

SAVE ACCA 

GET OPERATION CODE 

CHECK FOR WRITE SECTOR COMMAND 

RESTORE ACCA 

RETURN IF NOT WRITE SECTOR 

CHECK VERIFY FLAG 

RETURN IF NO VERIFY 

SAVE REGISTERS 

READ OPERATION CODE 

STORE TO DSKCON PARAMETER 

POINT U TO WRITE BUFFER ADDRESS 

* ADDRESS OF VERIFY BUFFER 

* TO DSKCON VARIABLE 
GO READ SECTOR 
RESTORE WRITE BUFFER 
WRITE OP CODE 

SAVE IN DSKCON VARIABLE 

CHECK STATUS FOR THE READ OPERATION 

BRANCH IF ERROR 

CHECK 256 BYTES 

GET BYTE FROM WRITE BUFFER 

COMPARE TO READ BUFFER 

BRANCH IF NOT EQUAL 

* DECREMENT BYTE COUNTER AND 

* BRANCH IF NOT DONE 
RESTORE REGISTERS 

RESTORE REGISTERS 

DECREMENT THE VERIFY COUNTER 

BRANCH IF MORE TRIES LEFT 

■VERIFY ERROR' 

JUMP TO ERROR HANDLER 



OFF FLAG = 

OFF TOKEN ? 

YES 

ON FLAG = $FF 

ON TOKEN 

BRANCH TO 'SYNTAX ERROR' IF NOT ON OR OFF 

SET VERIFY FLAG 

GET NEXT CHARACTER FROM BASIC 



SAVE REGISTERS 

* GET RETRY COUNT AND 

* SAVE IT ON THE STACK 
RESET DRIVE NOT READY TIMER 
GET DRIVE NUMBER 

POINT X TO DRIVE ENABLE MASKS 

GET DSKREG IMAGE 

KEEP MOTOR STATUS, DOUBLE DENSITY. HALT ENABLE 

'OR' IN DRIVE SELECT DATA 

'OR' IN DOUBLE DENSITY 

GET TRACK NUMBER 

PRECOMPENSATION STARTS AT TRACK 22 

BRANCH IF LESS THAN 22 

TURN ON WRITE PRECOMPENSATION IF >= 22 

SAVE PARTIAL IMAGE IN ACCB 

'OR' IN MOTOR ON CONTROL BIT 

SAVE IMAGE IN RAM 

PROGRAM THE 1793 CONTROL REGISTER 

= WERE MOTORS ALREADY ON? 

= DON'T WAIT FOR IT TO COME UP TO SPEED IF ALREADY ON 

* WAIT A WHILE 

* WAIT SOME MORE FOR MOTOR TO COME UP TO SPEED 
WAIT UNTIL NOT BUSY OR TIME OUT 

BRANCH IF TIMED OUT (DOOR OPEN. NO DISK, NO POWER. ETC.) 

CLEAR STATUS REGISTER 

POINT TO COMMAND JUMP VECTORS 

GET COMMAND 

2 BYTES PER COMMAND JUMP ADDRESS 



DISK BASIC UNRAVELLED II 



APPENDIX C 
DISASSEMBLY OF DISK BASIC 1.0 



ORIGIN:SPECTRAL ASSOC 
REVISED: 12/26/1999 WALTER K ZYDHEK 



3073 


D6AB 


AD 


95 






JSR 


[B,X] 


3074 


D6AD 


35 


02 




LD6AD 


PULS 


A 


3075 


D6AF 


D6 


F0 






LDB 


DCSTA 


3076 


D6B1 


27 


0B 






BEQ 


LD6BE 


3077 


D6B3 


4A 








DECA 




3078 


D6B4 


27 


08 






BEQ 


LD6BE 


3079 


D6B6 


34 


02 






PSHS 


A 


3080 


D6B8 


8D 


0B 






BSR 


LD6C5 


3081 


D6BA 


26 


Fl 






BNE 


LD6AD 


3082 


D6BC 


20 


B4 






BRA 


LD672 


3083 


D6BE 


86 


78 




LD6BE 


LDA 


#120 


3084 


D6C0 


B7 


09 


85 




STA 


RDYTMR 


3085 


D6C3 


35 


F6 






PULS 


A,B,X,Y,U,PC 


3086 










* RESTORE HEAD TO TRACK 


3087 


D6C5 


8E 


09 


7E 


LD6C5 


LDX 


#DR0TRK 


3088 


D6C8 


D6 


EB 






LDB 


DCDRV 


3089 


D6CA 


6F 


85 






CLR 


B,X 


3090 


D6CC 


86 


03 






LDA 


#$03 


3091 


D6CE 


B7 


FF 


48 




STA 


FDCREG 


3092 


D6D1 


IE 


88 






EXG 


A, A 


3093 


D6D3 


IE 


88 






EXG 


A, A 


3094 


D6D5 


8D 


07 






BSR 


LD6DE 


3095 


D6D7 


8D 


24 






BSR 


LD6FD 


3096 


D6D9 


84 


10 






ANDA 


#$10 


3097 


D6DB 


97 


F0 






STA 


DCSTA 


3098 


D6DD 


39 






LD6DD 


RTS 




3099 










* WAIT 


FOR THE 1793 TO BECOME UNBUSY. IF IT 


3100 










* FORCE 


. AN INTERRUPT AND ISSUE A DRIVE NOT 


3101 


D6DE 


9E 


8A 




LD6DE 


LDX 


ZERO 


3102 


D6E0 


30 


IF 




LD6E0 


LEAX 


-1,X 


3103 


D6E2 


27 


08 






BEQ 


LD6EC 


3104 


D6E4 


B6 


FF 


48 




LDA 


FDCREG 


3105 


D6E7 


85 


01 






BITA 


#$01 


3106 


D6E9 


26 


F5 






BNE 


LD6E0 


3107 


D6EB 


39 








RTS 




3108 


D6EC 


86 


D0 




LD6EC 


LDA 


#$D0 


3109 


D6EE 


B7 


FF 


48 




STA 


FDCREG 


3110 


D6F1 


IE 


88 






EXG 


A, A 


3111 


D6F3 


IE 


88 






EXG 


A, A 


3112 


D6F5 


B6 


FF 


48 




LDA 


FDCREG 


3113 


D6F8 


86 


80 






LDA 


#$80 


3114 


D6FA 


97 


F0 






STA 


DCSTA 


3115 


D6FC 


39 








RTS 




3116 










* MEDIUM DELAY 


3117 


D6FD 


8E 


22 


2E 


LD6FD 


LDX 


#8750 


3118 


D70O 


30 


IF 




LD700 


LEAX 


-1,X 


3119 


D702 


26 


FC 






BNE 


LD700 


3120 


D704 


39 








RTS 




3121 










* READ 


ONE SECTOR 


3122 


D705 


86 


80 




LD705 


LDA 


#$80 


3123 


D707 


8C 






LD707 


CMPX 


#$86A0 


3124 










* WRITE 


. ONE SECTOR 


3125 


D708 


86 


A0 




LD708 


LDA 


#$A0 


3126 


D70A 


34 


02 






PSHS 


A 


3127 


D70C 


8E 


09 


7E 




LDX 


#DR0TRK 


3128 


D70F 


D6 


EB 






LDB 


DCDRV 


3129 


D711 


3A 








ABX 




3130 


D712 


E6 


84 






LDB 


,x 


3131 


D714 


F7 


FF 


49 




STB 


FDCREG+1 


3132 


D717 


Dl 


EC 






CMPB 


DCTRK 


3133 


D719 


27 


IE 






BEQ 


LD739 


3134 


D71B 


96 


EC 






LDA 


DCTRK 


3135 


D71D 


B7 


FF 


4B 




STA 


FDCREG+3 


3136 


D720 


A7 


84 






STA 


,x 


3137 


D722 


86 


17 






LDA 


#$17 


3138 


D724 


B7 


FF 


48 




STA 


FDCREG 


3139 


D727 


IE 


88 






EXG 


A, A 


3140 


D729 


IE 


88 






EXG 


A, A 


3141 


D72B 


8D 


Bl 






BSR 


LD6DE 


3142 


D72D 


26 


08 






BNE 


LD737 


3143 


D72F 


8D 


CC 






BSR 


LD6FD 


3144 


D731 


84 


18 






ANDA 


#$18 


3145 


D733 


27 


04 






BEQ 


LD739 


3146 


D735 


97 


F0 






STA 


DCSTA 


3147 


D737 


35 


82 




LD737 


PULS 


A, PC 


3148 










* HEAD 


POSITIONED ON CORRECT TRACK 


3149 


D739 


96 


ED 




LD739 


LDA 


DSEC 


3150 


D73B 


B7 


FF 


4A 




STA 


FDCREG+2 


3151 


D73E 


8E 


D7 


98 




LDX 


#LD798 


3152 


D741 


BF 


09 


83 




STX 


DNMISV 


3153 


D744 


9E 


EE 






LDX 


DCBPT 


3154 


D746 


B6 


FF 


48 




LDA 


FDCREG 


3155 


D749 


B6 


09 


86 




LDA 


DRGRAM 


3156 


D74C 


8A 


80 






ORA 


#$80 


3157 


D74E 


35 


04 






PULS 


B 


3158 


D750 


10 


9E 


8A 




LDY 


ZERO 


3159 


D753 


CE 


FF 


48 




LDU 


#FDCREG 


3160 


D756 


73 


09 


82 




COM 


NMIFLG 


3161 


D759 


1A 


50 






ORCC 


#$50 


3162 


D75B 


F7 


FF 


48 




STB 


FDCREG 


3163 


D75E 


IE 


88 






EXG 


A, A 


3164 


D760 


IE 


88 






EXG 


A, A 


3165 


D762 


CI 


80 






CMPB 


#$80 


3166 


D764 


27 


1C 






BEQ 


LD782 


3167 










* WAIT 


FOR THE 1793 TO ACKNOWLEDGE READY TO 


3168 


D766 


C6 


02 






LDB 


#$02 



GO DO IT 

GET RETRY COUNT 

GET STATUS 

BRANCH IF NO ERRORS 

DECREMENT RETRIES COUNTER 

BRANCH IF NO RETRIES LEFT 

SAVE RETRY COUNT ON STACK 

RESTORE HEAD TO TRACK 

BRANCH IF SEEK ERROR 

GO TRY COMMAND AGAIN IF NO ERROR 

120*1760 = 2 SECONDS (1760 SECOND FOR EACH IRO INTERRUPT) 

WAIT 2 SECONDS BEFORE TURNING OFF MOTOR 

RESTORE REGISTERS - EXIT DSKCON 

POINT TO TRACK TABLE 
GET DRIVE NUMBER 
ZERO TRACK NUMBER 

* RESTORE HEAD TO TRACK 0, UNLOAD THE HEAD 

* AT START, 30 MS STEPPING RATE 

= WAIT FOR 1793 TO RESPOND TO COMMAND 

WAIT TILL DRIVE NOT BUSY 

WAIT SOME MORE 

1793 STATUS : KEEP ONLY SEEK ERROR 

SAVE IN DSKCON STATUS 

DOES NOT BECOME UNBUSY, 
READY 1793 ERROR. 

GET ZERO TO X REGISTER - LONG WAIT 

DECREMENT LONG WAIT COUNTER 

IF NOT READY BY NOW, FORCE INTERRUPT 

* GET 1793 STATUS AND TEST 

* BUSY STATUS BIT 
BRANCH IF BUSY 

* FORCE INTERRUPT COMMAND - TERMINATE ANY COMMAND 

* IN PROCESS. DO NOT GENERATE A 1793 INTERRUPT REQUEST 

* WAIT BEFORE READING 1793 

RESET INTRO ( FDC INTERRUPT REQUEST) 

RETURN DRIVE NOT READY STATUS IF THE DRIVE DID NOT BECOME UNBUSY 

SAVE DSKCON STATUS BYTE 



DELAY FOR A WHILE 

* DECREMENT DELAY COUNTER AND 

* BRANCH IF NOT DONE 



$80 IS READ FLAG (1793 READ SECTOR) 
SKIP TWO BYTES 

$A0 IS WRITE FLAG (1793 WRITE SECTOR) 

SAVE READ7WRITE FLAG ON STACK 

POINT X TO TRACK NUMBER TABLE IN RAM 

GET DRIVE NUMBER 

POINT X TO CORRECT DRIVE'S TRACK BYTE 

GET TRACK NUMBER OF CURRENT HEAD POSITION 

SEND TO 1793 TRACK REGISTER 

COMPARE TO DESIRED TRACK 

BRANCH IF ON CORRECT TRACK 

GET TRACK DESIRED 

SEND TO 1793 DATA REGiSTER 

SAVE IN RAM TRACK IMAGE 

* SEEK COMMAND FOR 1793: DO NOT LOAD THE 

* HEAD AT START, VERIFY DESTINATION TRACK, 

* 30 MS STEPPING RATE - WAIT FOR 

* VALID STATUS FROM 1793 
WAIT TILL NOT BUSY 
RETURN IF TIMED OUT 
WAIT SOME MORE 

KEEP ONLY SEEK ERROR OR CRC ERROR IN ID FIELD 
BRANCH IF NO ERRORS - HEAD ON CORRECT TRACK 
SAVE IN DSKCON STATUS 



GET SECTOR NUMBER DESIRED 
SEND TO 1793 SECTOR REGISTER 

* POINT X TO ROUTINE TO BE VECTORED 

* TO BY NMI UPON COMPLETION OF DISK 170 AND SAVE VECTOR 
POINT X TO 170 BUFFER 

RESET INTRO (FDC INTERRUPT REQUEST) 
GET DSKREG IMAGE 

SET FLAG TO ENABLE 1793 TO HALT 6809 
GET READ7WRITE COMMAND FROM STACK 
ZERO OUT Y - TIMEOUT INITIAL VALUE 
U POINTS TO 1793 INTERFACE REGISTERS 
NMI FLAG = $FF: ENABLE NMI VECTOR 
DISABLE FIRQ, IRQ 

* SEND READ7WRITE COMMAND TO 1793: SINGLE RECORD, COMPARE 

* FOR SIDE 0, NO 15 MS DELAY, DISABLE SIDE SELECT 

* COMPARE, WRITE DATA ADDRESS MARK (FB) - WAIT FOR STATUS 
WAS THIS A READ? 

IF SO, GO LOOK FOR DATA 
WRITE DATA 

DRO MASK BIT 



DISK BASIC UNRAVELLED II 



APPENDIX C 
DISASSEMBLY OF DISK BASIC 1.0 



ORIGIN:SPECTRAL ASSOC 
REVISED: 12/26/1999 WALTER K ZYDHEK 



3169 


D768 


E5 


C4 




3170 


D76A 


26 


0C 




3171 


D76C 


31 


3F 




3172 


D76E 


26 


F8 




3173 


D770 


7F 


09 


82 


3174 


D773 


1C 


AF 




3175 


D775 


7E 


[16 


EC 


3176 










3177 










3178 


D778 


E6 


80 




3179 


D77A 


F7 


FF 


4B 


3180 


D77D 


B7 


FF 


40 


3181 


D780 


20 


F6 




3182 










3183 


D782 


C6 


02 




3184 


D784 


E5 


C4 




3185 


D786 


26 


06 




3186 


D788 


31 


3F 




3187 


D78A 


26 


F8 




3188 


D78C 


20 


E2 




3189 










3190 










3191 


D78E 


F6 


FF 


4B 


3192 


D791 


E7 


80 




3193 


D793 


B7 


FF 


40 


3194 


D796 


20 


F6 




3195 










3196 


D798 


1C 


AF 




3197 


D79A 


B6 


FF 


48 


3198 


D79D 


84 


7C 




3199 


D79F 


97 


F0 




3200 


D7A1 


39 






3201 










3202 










3203 


D7A2 


D6 


C5 




3204 


D7A4 


D6 


DD 




3205 


D7A6 


D7 


05 




3206 


D7A8 


D7 


08 




3207 










3208 










3209 


D7AA 


01 






3210 


D7AB 


02 






3211 


D7AC 


04 






3212 


D7AD 


40 






3213 










3214 










3215 


D7AE 


B6 


09 


82 


3216 


D7B1 


27 


08 




3217 


D7B3 


BE 


09 


83 


3218 


D7B6 


AF 


6A 




3219 


D7B8 


7F 


09 


82 


3220 


D7BB 


3B 






3221 










3222 










3223 


D7BC 


B6 


FF 


03 


3224 


D7BF 


2A 


FA 




3225 


D7C1 


B6 


FF 


02 


3226 


D7C4 


B6 


09 


85 


3227 


D7C7 


27 


11 




3228 


D7C9 


4A 






3229 


D7CA 


B7 


09 


85 


3230 


D7CD 


26 


0B 




3231 


D7CF 


B6 


09 


86 


3232 


D7D2 


84 


B0 




3233 


D7D4 


B7 


09 


86 


3234 


D7D7 


B7 


FF 


40 


3235 


D7DA 


7E 


89 


55 


3236 










3237 










3238 










3239 










3240 











BITB 


,u 


BNE 


LD778 


LEAY 


-i,v 


BNE 


LD768 


CLR 


NMIFLG 


ANDCC#$AF 


JMP 


LD6EC 



* WRITE A SECTOR 
LD778 LDB ,X+ 

STB FDCREG+3 
STA DSKREG 
BRA LD778 



IS 1793 READY FOR A BYTE? (DRO SET IN STATUS BYTE) 

BRANCH IF SO 

DECREMENT WAIT TIMER 

KEEP WAITING FOR THE 1793 DRO 

RESET NMI FLAG 

ENABLE FIRQ.IRQ 

FORCE INTERRUPT, SET DRIVE NOT READY ERROR 



GET A BYTE FROM RAM 
SEND IT TO 1793 DATA REGISTER 
REPROGRAM FDC CONTROL REGISTER 
SEND MORE DATA 



WAIT FOR THE 17933 TO ACKNOWLEDGE READY TO READ DATA 



LD782 


LDB 


#$02 


LD784 


BITB 


,u 




BNE 


LD78E 




LEAY 


-1,Y 




BNE 


LD784 




BRA 


LD770 


* READ A 


SECTOR 


LD78E 


LDB 


FDCREG+3 




STB 


,x+ 




STA 


DSKREG 




BRA 


LD78E 


* BRANCH 


HERE 


ON COMPLETION OF SECTOI 


LD798 


ANDCC#$AF 




LDA 


FDCREG 




ANDA 


#$7C 




STA 


DCSTA 




RTS 




* DSKCON 


OPERATION CODE JUMP VECTORS 


LD7A2 


FDB 


LD6C5 




FOB 


LD6DD 




FDB 


LD705 




FDB 


$D708 


* DSKREG 


MASKS FOR DISK DRIVE SELECT 


LD7AA 


FCB 


1 




FDB 


2 




FDB 


4 




FCB 


$40 


* NMI SERVICE 




DNMISV 


LDA 


NMIFLG 




BEQ 


LD7BB 




LDX 


DNMISV 




STX 


10, S 




CLR 


NMIFLG 


LD7BB 


RTI 




* IRQ SERVICE 




DIRQSV 


LDA 


PIA0+3 




BPL 


LD7BB 




LDA 


PIA0+2 




LDA 


RDYTMR 




BEQ 


LD7DA 




DECA 






STA 


RDYTMR 




BNE 


LD7DA 




LDA 


DRGRAM 




ANDA 


#$B0 




STA 


DRGRAM 




STA 


DSKREG 


LD7DA 


JMP 


L8955 



DRQ MASK BIT 

DOES THE 1793 HAVE A BYTE? (DRO SET IN STATUS BYTE) 

YES, GO READ A SECTOR 

DECREMENT WAIT TIMER 

KEEP WAITING FOR 1793 DRQ 

GENERATE DRIVE NOT READY ERROR 



GET DATA BYTE FROM 1793 DATA REGISTER 
PUT IT IN RAM 

REPROGRAM FDC CONTROL REGISTER 
KEEP GETTING DATA 
E 
ENABLE IRQ, FIRO 

* GET STATUS S KEEP WRITE PROTECT, RECORD TYPE/WRITE 

* FAULT, RECORD NOT FOUND, CRC ERROR OR LOST DATA 
SAVE IN DSKCON STATUS 



RESTORE HEAD TO TRACK ZERO 
NO OP - RETURN 
READ SECTOR 
WRITE SECTOR 



DRIVE SEL 

DRIVE SEL 1 

DRIVE SEL 2 

DRIVE SEL 3 



GET NMI FLAG 

RETURN IF NOT ACTIVE 

GET NEW RETURN VECTOR 

STORE AT STACKED PC SLOT ON STACK 

RESET NMI FLAG 



63.5 MICRO SECOND OR 60 HZ INTERRUPT? 

RETURN IF 63.5 MICROSECOND 

RESET 60 HZ PIA INTERRUPT FLAG 

GET TIMER 

BRANCH IF NOT ACTIVE 

DECREMENT THE TIMER 

SAVE IT 

BRANCH IF NOT TIME TO TURN OFF DISK MOTORS 

= GET DSKREG IMAGE 

= TURN ALL MOTORS AND DRIVE SELECTS OFF 

= PUT IT BACK IN RAM IMAGE 

SEND TO CONTROL REGISTER (MOTORS OFF) 

JUMP TO EXTENDED BASIC'S IRQ HANDLER 



THIS IS THE END OF DISK BASIC. 

THE CODE FROM THIS POINT TO $DFFF IS GARBAGE. 

DOSBAS 1.0 • 2083 WASTED BYTES 
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ALLCOL 


00B5 


DCTRK 


00EC 


DVEC20 


C8B0 


IRQ 


FFF8 


LAD33 


AD33 


ANGLE 


00E8 


DEBVAL 


011B 


DVEC22 


C2B2 


IRQVEC 


010C 


LAD9E 


AD9E 


ARYDIS 


0008 


DEFDRV 


095A 


DVEC3 


CC1C 


KEYBUF 


0152 


LADC6 


ADC6 


ARYEND 


001F 


DEFEXT 


C2A9 


DVEC4 


C5BC 


KILL 


C6EF 


LADD4 


ADD4 


ARYTAB 


001D 


DEVCFW 


006A 


DVEC5 


C848 


L813C 


813C 


LADEB 


ADEB 


ATTCTR 


0988 


DEVLCF 


006B 


DVEC6 


C84B 


L8168 


8168 


LAE15 


AE15 


BACKUP 


D262 


DEVNUM 


006F 


DXCVEC 


CF0A 


L8311 


8311 


LAF9A 


AF9A 


BAKCOL 


00B3 


DEVPOS 


006C 


DXIVEC 


CF32 


L8316 


8316 


LAFA4 


AFA4 


BASEXT 


C2A6 


DEVWID 


006D 


ENDCHR 


0002 


L836C 


836C 


LAFB1 


AFB1 


BAWMST 


A0E8 


DEXTBF 


0954 


ENDFLG 


0000 


L8C1B 


8C1B 


LASTPT 


000D 


BEGGRP 


00BA 


DFFLEN 


097C 


ENDGRP 


00B7 


L95AC 


95AC 


LB00C 


B00C 


BINEXT 


C2AF 


DFLBUF 


0989 


EVALEXPB 


B70B 


L962E 


962E 


LB01E 


B01E 


BINVAL 


002B 


DFLTYP 


0957 


EXECJP 


009D 


L9650 


9650 


LB148 


B148 


BLKCNT 


0094 


DIMFLG 


0005 


EXPJMP 


011D 


L96CB 


96CB 


LB156 


B156 


BLKLEN 


007D 


DIR 


CCA9 


FATBL0 


0800 


L96EC 


96EC 


LB166 


B166 


BLKTYP 


007C 


DIRQSV 


D8AF 


FATBL1 


084A 


L975F 


975F 


LB244 


B244 


BOTSTK 


0017 


DKWMST 


C0E7 


FATBL2 


0894 


L9FB5 


9FB5 


LB262 


B262 


BROMHK 


AA1A 


DLBAUD 


00E6 


FATBL3 


08DE 


LA0E2 


A0E2 


LB26F 


B26F 


CASBUF 


01DA 


DLODFL 


095D 


FCBACT 


095B 


LA171 


A171 


LB277 


B277 


CASFLG 


011A 


DMRGFL 


095E 


FCBADR 


094A 


LA176 


A176 


LB2CE 


B2CE 


CBTPHA 


0084 


DNAMBF 


094C 


FCBTMP 


00F1 


LA282 


A282 


LB357 


B357 


CBUFAD 


007E 


DNMISV 


D8A1 


FCBV1 


0928 


LA35F 


A35F 


LB3E6 


B3E6 


CCKSUM 


0080 


DNMIVC 


0983 


FDCREG 


FF48 


LA37C 


A37C 


LB44A 


B44A 


CFNBUF 


01D1 


DOS 


D6EC 


FIELD 


D0BC 


LA3ED 


A3ED 


LB4F3 


B4F3 


CHARAC 


0001 


DOSBAS 


C000 


FILES 


D15C 


LA3FB 


A3FB 


LB50F 


B50F 


CHARAD 


00A6 


DOSBUF 


2600 


FILSTA 


0078 


LA406 


A406 


LB516 


B516 


CHGFLG 


00DB 


DOSCOM 


DF00 


FIRQ 


FFF6 


LA426 


A426 


LB654 


B654 


CINBFL 


0070 


DOSINI 


DF4C 


FORCOL 


00B2 


LA429 


A429 


LB657 


B657 


CINCTR 


0079 


DOSVEC 


C00A 


FP0EXP 


004F 


LA42D 


A42D 


LB659 


B659 


CINPTR 


007A 


DOTVAL 


00E5 


FP0SGN 


0054 


LA549 


A549 


LB69B 


B69B 


CLSTSN 


0085 


DR0TRK 


097E 


FP1EXP 


005C 


LA59A 


A59A 


LB6A4 


B6A4 


CMP0 


0090 


DRESFL 


095C 


FP1SGN 


0061 


LA5A2 


A5A2 


LB70E 


B70E 


CMP1 


0091 


DRGRAM 


0986 


FPA0 


0050 


LA5A5 


A5A5 


LB738 


B738 


CMPMID 


008F 


DRIVE 


CEC5 


FPA1 


005D 


LA5AE 


A5AE 


LB73D 


B73D 


COEFCT 


0055 


DRUNFL 


0959 


FPA2 


0013 


LA5C7 


A5C7 


LB958 


B958 


COEFPT 


0064 


DSEC 


00ED 


FPCARY 


005B 


LA5DA 


A5DA 


LB95C 


B95C 


COMVEC 


0120 


DSINIT 


C008 


FPSBYT 


0063 


LA5E4 


A5E4 


LB99F 


B99F 


COPY 


D3B9 


DSKCON 


D75F 


FREE 


CE9C 


LA603 


A603 


LB9A2 


B9A2 


CPERTM 


0083 


DSKI 


D4ED 


FRESPC 


0025 


LA616 


A616 


LB9AC 


B9AC 


CPULWD 


0082 


DSKINI 


D599 


FRETOP 


0021 


LA61C 


A61C 


LB9AF 


B9AF 


CSRERR 


0081 


DSKO 


D562 


FRQVEC 


010F 


LA61F 


A61F 


LB9C5 


B9C5 


CSSVAL 


00C1 


DSKREG 


FF40 


GARBFL 


0007 


LA7D1 


A7D1 


LBB91 


BB91 


CURLIN 


0068 


DSKVAR 


C006 


GETCCH 


00A5 


LA7E9 


A7E9 


LBC14 


BC14 


CURPOS 


0088 


DUSRVC 


095F 


GETNCH 


009F 


LA928 


A928 


LBC33 


BC33 


CVN 


CDF4 


DVEC0 


C44B 


GIVABF 


B4F4 


LA951 


A951 


LBC35 


BC35 


DA 


FF20 


DVEC1 


C888 


GRBLOK 


0086 


LA974 


A974 


LBC5F 


BC5F 


DASCFL 


0958 


DVEC10 


CD35 


GRPRAM 


00BC 


LAC37 


AC37 


LBDCC 


BDCC 


DATEXT 


C2AC 


DVEC11 


C8A9 


HORBEG 


00BD 


LAC44 


AC44 


LBDD9 


BDD9 


DATPTR 


0033 


DVEC12 


C6E4 


HORBYT 


00B9 


LAC46 


AC46 


LC002 


C002 


DATTMP 


0035 


DVEC13 


CAE4 


HORDEF 


00C7 


LAC60 


AC60 


LC00C 


C00C 


DATTXT 


0031 


DVEC14 


C90C 


HOREND 


00C3 


LAC73 


AC73 


LC00F 


C00F 


DBUF0 


0600 


DVEC15 


CED2 


IFCTR 


0004 


LAC7C 


AC7C 


LC03B 


C03B 


DBUF1 


0700 


DVEC17 


C265 


IKEYIM 


0087 


LACEF 


ACEF 


LC061 


C061 


DCBPT 


00EE 


DVEC18 


CA3E 


INPFLG 


0009 


LAD19 


AD19 


LC0BD 


C0BD 


DCDRV 


00EB 


DVEC2 


C893 


INT 


BCEE 


LAD21 


AD21 


LC0C2 


C0C2 


DCNVEC 


C004 


DVEC7 


CAE9 


L8748 


8748 


LB069 


B069 


LC2EA 


C2EA 


DCOPC 


00EA 


DVEC8 


CAF9 


L880E 


880E 


LB143 


B143 


LC306 


C306 


DCSTA 


00F0 


DVERFL 


0987 


L8955 


8955 


LB146 


B146 


LC30B 


C30B 



Dl 
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LC0F0 


C0F0 


LC627 


C627 


LC905 


C905 


LCC15 


CC15 


LD013 


D013 


LC109 


C109 


LC629 


C629 


LC932 


C932 


LCC17 


CC17 


LD015 


D015 


LC139 


C139 


LC631 


C631 


LC935 


C935 


LCC24 


CC24 


LD051 


D051 


LC192 


C192 


LC64D 


C64D 


LC938 


C938 


LCC3A 


CC3A 


LD056 


D056 


LC1F1 


C1F1 


LC653 


C653 


LC945 


C945 


LCC40 


CC40 


LD059 


D059 


LC219 


C219 


LC658 


C658 


LC96A 


C96A 


LCC5E 


CC5E 


LD06E 


D06E 


LC22C 


C22C 


LC65E 


C65E 


LC96E 


C96E 


LCC6A 


CC6A 


LD06F 


D06F 


LC238 


C238 


LC67D 


C67D 


LC973 


C973 


LCC6C 


CC6C 


LD07F 


D07F 


LC244 


C244 


LC681 


C681 


LC978 


C978 


LCC99 


CC99 


LD082 


D082 


LC24E 


C24E 


LC684 


C684 


LC97D 


C97D 


LCCBB 


CCBB 


LD092 


D092 


LC256 


C256 


LC685 


C685 


LC994 


C994 


LCCC5 


CCC5 


LD0A3 


D0A3 


LC290 


C290 


LC68C 


C68C 


LC99B 


C99B 


LCCEB 


CCEB 


LD0A7 


D0A7 


LC2BF 


C2BF 


LC69B 


C69B 


LC99D 


C99D 


LCD08 


CD08 


LD0B0 


D0B0 


LC2C1 


C2C1 


LC6A5 


C6A5 


LC9B0 


C9B0 


LCD17 


CD17 


LD0B9 


D0B9 


LC2E6 


C2E6 


LC6B0 


C6B0 


LC9B7 


C9B7 


LCD18 


CD18 


LD0C3 


D0C3 


LC310 


C310 


LC6B3 


C6B3 


LC9BE 


C9BE 


LCD1B 


CD1B 


LD0C9 


D0C9 


LC324 


C324 


LC6C7 


C6C7 


LC9D0 


C9D0 


LCD1E 


CD1E 


LD0DA 


D0DA 


LC33E 


C33E 


LC6D6 


C6D6 


LC9DF 


C9DF 


LCD24 


CD24 


LD0DF 


D0DF 


LC352 


C352 


LC6D9 


C6D9 


LCA04 


CA04 


LCD4B 


CD4B 


LD119 


D119 


LC357 


C357 


LC6E5 


C6E5 


LCA07 


CA07 


LCD5F 


CD5F 


LD11E 


DUE 


LC35A 


C35A 


LC6FC 


C6FC 


LCA12 


CA12 


LCD74 


CD74 


LD132 


D132 


LC366 


C366 


LC70F 


C70F 


LCA27 


CA27 


LCD81 


CD81 


LD143 


D143 


LC37B 


C37B 


LC71E 


C71E 


LCA33 


CA33 


LCD8E 


CD8E 


LD157 


D157 


LC3AD 


C3AD 


LC739 


C739 


LCA4F 


CA4F 


LCD92 


CD92 


LD15A 


D15A 


LC3B2 


C3B2 


LC744 


C744 


LCA50 


CA50 


LCD97 


CD97 


LD181 


D181 


LC3C5 


C3C5 


LC749 


C749 


LCA6C 


CA6C 


LCD98 


CD98 


LD189 


D189 


LC3C8 


C3C8 


LC755 


C755 


LCA7B 


CA7B 


LCDA0 


CDA0 


LD199 


D199 


LC3CF 


C3CF 


LC763 


C763 


LCA7E 


CA7E 


LCDAC 


CDAC 


LD1A8 


D1A8 


LC405 


C405 


LC76E 


C76E 


LCAA4 


CAA4 


LCDB0 


CDB0 


LD1AF 


D1AF 


LC40A 


C40A 


LC779 


C779 


LCAAF 


CAAF 


LCDB8 


CDB8 


LD1EF 


D1EF 


LC421 


C421 


LC784 


C784 


LCAB6 


CAB6 


LCDBC 


CDBC 


LD1F8 


D1F8 


LC429 


C429 


LC786 


C786 


LCABD 


CABD 


LCDCB 


CDCB 


LD208 


D208 


LC42F 


C42F 


LC796 


C796 


LCABF 


CABF 


LCDD0 


CDD0 


LD20B 


D20B 


LC43E 


C43E 


LC79C 


C79C 


LCAC6 


CAC6 


LCDD5 


CDD5 


LD212 


D212 


LC481 


C481 


LC79D 


C79D 


LCADA 


CADA 


LCDD6 


CDD6 


LD21B 


D21B 


LC48D 


C48D 


LC7BF 


C7BF 


LCAED 


CAED 


LCDEC 


CDEC 


LD222 


D222 


LC4BB 


C4BB 


LC7C8 


C7C8 


LCAF8 


CAF8 


LCE14 


CE14 


LD236 


D236 


LC4C7 


C4C7 


LC7E6 


C7E6 


LCB01 


CB01 


LCE19 


CE19 


LD249 


D249 


LC4E1 


C4E1 


LC7E8 


C7E8 


LCB06 


CB06 


LCE68 


CE68 


LD24F 


D24F 


LC4E8 


C4E8 


LC7EC 


C7EC 


LCB2E 


CB2E 


LCE72 


CE72 


LD256 


D256 


LC4F2 


C4F2 


LC7F8 


C7F8 


LCB31 


CB31 


LCEB6 


CEB6 


LD25F 


D25F 


LC504 


C504 


LC7FD 


C7FD 


LCB41 


CB41 


LCEBD 


CEBD 


LD27B 


D27B 


LC509 


C509 


LC806 


C806 


LCB4E 


CB4E 


LCEE9 


CEE9 


LD28C 


D28C 


LC514 


C514 


LC807 


C807 


LCB52 


CB52 


LCEEC 


CEEC 


LD2A4 


D2A4 


LC519 


C519 


LC80D 


C80D 


LCB54 


CB54 


LCF07 


CF07 


LD2A5 


D2A5 


LC52D 


C52D 


LC829 


C829 


LCB6B 


CB6B 


LCF2A 


CF2A 


LD2AE 


D2AE 


LC538 


C538 


LC82E 


C82E 


LCB76 


CB76 


LCF5C 


CF5C 


LD2CD 


D2CD 


LC53C 


C53C 


LC845 


C845 


LCB8B 


CB8B 


LCF68 


CF68 


LD2D2 


D2D2 


LC567 


C567 


LC866 


C866 


LCB8C 


CB8C 


LCF9B 


CF9B 


LD2DD 


D2DD 


LC586 


C586 


LC868 


C868 


LCB93 


CB93 


LCFB3 


CFB3 


LD2EF 


D2EF 


LC5A9 


C5A9 


LC881 


C881 


LCB97 


CB97 


LCFB5 


CFB5 


LD2FA 


D2FA 


LC5BA 


C5BA 


LC8AF 


C8AF 


LCBAD 


CBAD 


LCFBB 


CFBB 


LD2FC 


D2FC 


LC5C4 


C5C4 


LC8B2 


C8B2 


LCBB4 


CBB4 


LCFC1 


CFC1 


LD2FF 


D2FF 


LC5EC 


C5EC 


LC8C2 


C8C2 


LCBC0 


CBC0 


LCFDE 


CFDE 


LD30E 


D30E 


LC5F9 


C5F9 


LC8D1 


C8D1 


LCBC3 


CBC3 


LCFE3 


CFE3 


LD310 


D310 


LC5FE 


C5FE 


LC8DA 


C8DA 


LCBCF 


CBCF 


LCFFA 


CFFA 


LD322 


D322 


LC602 


C602 


LC8F3 


C8F3 


LCBDF 


CBDF 


LD004 


D004 


LD326 


D326 


LC611 


C611 


LC8FE 


C8FE 


LCBE9 


CBE9 


LD00D 


D00D 


LD344 


D344 



D2 



DISK BASIC UNRAVELLED II 



APPENDIX D 
DISK BASIC 1.1 SYMBOL TABLE 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/26/1999 WALTER K ZYDHEK 



LD357 


D357 


LD709 


D709 


OLDPTR 


002D 


SW3VEC 


0100 


VD8 


00D8 


LD35E 


D35E 


LD70B 


D70B 


OLDTXT 


0029 


SWI 


FFFA 


VD9 


00D9 


LD35F 


D35F 


LD70E 


D70E 


PIA0 


FF00 


SWI2 


FFF4 


VDA 


00DA 


LD36C 


D36C 


LD737 


D737 


PIA1 


FF20 


SWI3 


FFF2 


VERBEG 


00BF 


LD37E 


D37E 


LD742 


D742 


PIA2 


FF40 


SWIVEC 


0106 


VERDEF 


00C9 


LD399 


D399 


LD743 


D743 


PLYTMR 


00E3 


SYNCLN 


0092 


VEREND 


00C5 


LD3A0 


D3A0 


LD75A 


D75A 


PMODE 


00B6 


SYNCOMMA 


B26D 


VERIFY 


D74E 


LD3AD 


D3AD 


LD765 


D765 


POTVAL 


015A 


TEMPO 


00E2 


VIDRAM 


0400 


LD3CE 


D3CE 


LD77E 


D77E 


PRTDEV 


006E 


TEMPPT 


000B 


VOLHI 


00DF 


LD3DC 


D3DC 


LD792 


D792 


RDYTMR 


0985 


TEMPTR 


000F 


VOLLOW 


00E0 


LD41E 


D41E 


LD7A0 


D7A0 


RELFLG 


000A 


TIMOUT 


00E7 


WCOLOR 


00B4 


LD423 


D423 


LD7B1 


D7B1 


RELPTR 


003D 


TIMVAL 


0112 


WFATVL 


097A 


LD42C 


D42C 


LD7B8 


D7B8 


RENAME 


D01B 


TINPTR 


002F 


WRITE 


D066 


LD44E 


D44E 


LD7D0 


D7D0 


RESETV 


FFFE 


TMPLOC 


0003 


XBWMST 


80C0 


LD455 


D455 


LD7D1 


D7D1 


RESSGN 


0062 


TMPSTK 


00DC 


XVEC15 


8846 


LD45D 


D45D 


LD7D3 


D7D3 


RNBFAD 


0948 


TMPTR1 


0011 


XVEC17 


88F0 


LD45F 


D45F 


LD7DF 


D7DF 


ROMPAK 


C000 


TOPRAM 


0074 


XVEC18 


829C 


LD472 


D472 


LD7F0 


D7F0 


RSET 


D101 


TRCFLG 


00AF 


XVEC3 


8273 


LD476 


D476 


LD7F3 


D7F3 


RSTFLG 


0071 


TRELFL 


003F 


XVEC4 


8CF1 


LD47C 


D47C 


LD7F8 


D7F8 


RSTVEC 


0072 


TXTTAB 


0019 


XVEC8 


8286 


LD482 


D482 


LD7FB 


D7FB 


RVEC0 


015E 


UNLOAD 


D233 


XVEC9 


8E90 


LD486 


D486 


LD82A 


D82A 


RVEC1 


0161 


USRADR 


00B0 


ZERO 


008A 


LD4BA 


D4BA 


LD82C 


D82C 


RVEC10 


017C 


USRJMP 


0112 






LD4C4 


D4C4 


LD85B 


D85B 


RVEC11 


017F 


V40 


0040 






LD4D4 


D4D4 


LD863 


D863 


RVEC12 


0182 


V41 


0041 






LD4EA 


D4EA 


LD86B 


D86B 


RVEC13 


0185 


V42 


0042 






LD508 


D508 


LD875 


D875 


RVEC14 


0188 


V43 


0043 






LD519 


D519 


LD877 


D877 


RVEC15 


018B 


V44 


0044 






LD51C 


D51C 


LD881 


D881 


RVEC16 


018E 


V45 


0045 






LD524 


D524 


LD88B 


D88B 


RVEC17 


0191 


V46 


0046 






LD527 


D527 


LD895 


D895 


RVEC18 


0194 


V47 


0047 






LD54A 


D54A 


LD89D 


D89D 


RVEC19 


0197 


V48 


0048 






LD54D 


D54D 


LD8AE 


D8AE 


RVEC2 


0164 


V4A 


004A 






LD553 


D553 


LD8CD 


D8CD 


RVEC20 


019A 


V4B 


004B 






LD577 


D577 


LDF09 


DF09 


RVEC21 


019D 


V4D 


004D 






LD58F 


D58F 


LDF36 


DF36 


RVEC22 


01A0 


V973 


0973 






LD5B2 


D5B2 


LINBUF 


02DC 


RVEC23 


01A3 


V974 


0974 






LD5B9 


D5B9 


LINHDR 


02DA 


RVEC24 


01A6 


V976 


0976 






LD5C1 


D5C1 


LIST 


B764 


RVEC3 


0167 


V977 


0977 






LD5C3 


D5C3 


LOAD 


CA48 


RVEC4 


016A 


V978 


0978 






LD5C4 


D5C4 


LOC 


CE10 


RVEC5 


016D 


VAB 


00AB 






LD5CE 


D5CE 


LOF 


CE37 


RVEC6 


0170 


VAC 


00AC 






LD606 


D606 


LPTBTD 


0095 


RVEC7 


0173 


VAD 


00AD 






LD612 


D612 


LPTCFW 


0099 


RVEC8 


0176 


VAE 


00AE 






LD620 


D620 


LPTLCF 


009A 


RVEC9 


0179 


VALTMP 


0006 






LD649 


D649 


LPTLND 


0097 


RVSEED 


0115 


VARDES 


003B 






LD64F 


D64F 


LPTPOS 


009C 


SAMREG 


FFC0 


VARNAM 


0037 






LD66F 


D66F 


LPTWID 


009B 


SAVE 


C9E0 


VARPTR 


0039 






LD672 


D672 


LSET 


D102 


SCALE 


00E9 


VARTAB 


001B 






LD688 


D688 


LSTTXT 


0066 


SETFLG 


00C2 


VCB 


00CB 






LD691 


D691 


MEMSIZ 


0027 


SNDDUR 


008D 


VCD 


00CD 






LD69A 


D69A 


MERGE 


CA39 


SNDTON 


008C 


VCF 


00CF 






LD6C2 


D6C2 


MKN 


CE02 


STRBUF 


03D7 


VD1 


00D1 






LD6C8 


D6C8 


NMI 


FFFC 


STRDES 


0056 


VD3 


00D3 






LD6D4 


D6D4 


NMIFLG 


0982 


STRINOUT 


B99C 


VD4 


00D4 






LD6F2 


D6F2 


NMIVEC 


0109 


STRSTK 


01A9 


VD5 


00D5 






LD6FB 


D6FB 


NOTELN 


00E1 


STRTAB 


0023 


VD6 


00D6 






LD701 


D701 


OCTAVE 


00DE 


SW2VEC 


0103 


VD7 


00D7 
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ALLCOL 


00B5 


DCTRK 


00EC 


DXCVEC 


CE2E 


L8748 


8748 


LASTPT 


000D 


ANGLE 


00E8 


DEBVAL 


011B 


DXIVEC 


CE56 


L880E 


880E 


LB00C 


B00C 


ARYDIS 


0008 


DEFDRV 


095A 


ENDCHR 


0002 


L8955 


8955 


LB01E 


B01E 


ARYEND 


001F 


DEFEXT 


C291 


ENDFLG 


0000 


L8C1B 


8C1B 


LB069 


B069 


ARYTAB 


001D 


DEVCFW 


006A 


ENDGRP 


00B7 


L95AC 


95AC 


LB143 


B143 


ATTCTR 


0988 


DEVLCF 


006B 


EVALEXPB 


B70B 


L962E 


962E 


LB146 


B146 


BACKUP 


D175 


DEVNUM 


006F 


EXECJP 


009D 


L9650 


9650 


LB148 


B148 


BAKCOL 


00B3 


DEVPOS 


006C 


EXPJMP 


011D 


L96CB 


96CB 


LB156 


B156 


BASEXT 


C28E 


DEVWID 


006D 


FATBL0 


0800 


L96EC 


96EC 


LB166 


B166 


BAWMST 


A0E8 


DEXTBF 


0954 


FATBL1 


084A 


L975F 


975F 


LB244 


B244 


BEGGRP 


00BA 


DFFLEN 


097C 


FATBL2 


0894 


L9FB5 


9FB5 


LB262 


B262 


BINEXT 


C297 


DFLBUF 


0989 


FATBL3 


08DE 


LA0E2 


A0E2 


LB26F 


B26F 


BINVAL 


002B 


DFLTYP 


0957 


FCBACT 


095B 


LA171 


A171 


LB277 


B277 


BLKCNT 


0094 


DIMFLG 


0005 


FCBADR 


094A 


LA176 


A176 


LB2CE 


B2CE 


BLKLEN 


007D 


DIR 


CBCF 


FCBTMP 


00F1 


LA282 


A282 


LB357 


B357 


BLKTYP 


007C 


DIRQSV 


D7BC 


FCBV1 


0928 


LA35F 


A35F 


LB3E6 


B3E6 


BOTSTK 


0017 


DKWMST 


C0D4 


FDCREG 


FF48 


LA37C 


A37C 


LB44A 


B44A 


BROMHK 


AA1A 


DLBAUD 


00E6 


FIELD 


CFE0 


LA3ED 


A3ED 


LB4F3 


B4F3 


CASBUF 


01DA 


DLODFL 


095D 


FILES 


D080 


LA3FB 


A3FB 


LB50F 


B50F 


CASFLG 


011A 


DMRGFL 


095E 


FILSTA 


0078 


LA406 


A406 


LB516 


B516 


CBTPHA 


0084 


DNAMBF 


094C 


FIRQ 


FFF6 


LA426 


A426 


LB654 


B654 


CBUFAD 


007E 


DNMISV 


D7AE 


FORCOL 


00B2 


LA429 


A429 


LB657 


B657 


CCKSUM 


0080 


DNMIVC 


0983 


FP0EXP 


004F 


LA42D 


A42D 


LB659 


B659 


CFNBUF 


01D1 


DOSBAS 


C000 


FP0SGN 


0054 


LA549 


A549 


LB69B 


B69B 


CHARAC 


0001 


DOSBUF 


2600 


FP1EXP 


005C 


LA59A 


A59A 


LB6A4 


B6A4 


CHARAD 


00A6 


DOTVAL 


00E5 


FP1SGN 


0061 


LA5A2 


A5A2 


LB70E 


B70E 


CHGFLG 


00DB 


DR0TRK 


097E 


FPA0 


0050 


LA5A5 


A5A5 


LB738 


B738 


CINBFL 


0070 


DRESFL 


095C 


FPA1 


005D 


LA5AE 


A5AE 


LB73D 


B73D 


CINCTR 


0079 


DRGRAM 


0986 


FPA2 


0013 


LA5C7 


A5C7 


LB958 


B958 


CINPTR 


007A 


DRIVE 


CDE9 


FPCARY 


005B 


LA5DA 


A5DA 


LB95C 


B95C 


CLSTSN 


0085 


DRUNFL 


0959 


FPSBYT 


0063 


LA5E4 


A5E4 


LB99F 


B99F 


CMP0 


0090 


DSEC 


00ED 


FREE 


CDC0 


LA603 


A603 


LB9A2 


B9A2 


CMP1 


0091 


DSKCON 


D66C 


FRESPC 


0025 


LA616 


A616 


LB9AC 


B9AC 


CMPMID 


008F 


DSKI 


D3FF 


FRETOP 


0021 


LA61C 


A61C 


LB9AF 


B9AF 


COEFCT 


0055 


DSKINI 


D4AB 


FRQVEC 


010F 


LA61F 


A61F 


LB9C5 


B9C5 


COEFPT 


0064 


DSKO 


D474 


GARBFL 


0007 


LA7D1 


A7D1 


LBB91 


BB91 


COMVEC 


0120 


DSKREG 


FF40 


GETCCH 


00A5 


LA7E9 


A7E9 


LBC14 


BC14 


COPY 


D2CC 


DSKVAR 


C006 


GETNCH 


009F 


LA928 


A928 


LBC33 


BC33 


CPERTM 


0083 


DUSRVC 


095F 


GIVABF 


B4F4 


LA951 


A951 


LBC35 


BC35 


CPULWD 


0082 


DVEC0 


C426 


GRBLOK 


0086 


LA974 


A974 


LBC5F 


BC5F 


CSRERR 


0081 


DVEC1 


C838 


GRPRAM 


00BC 


LAC37 


AC37 


LBDCC 


BDCC 


CSSVAL 


00C1 


DVEC10 


CC5B 


HORBEG 


00BD 


LAC44 


AC44 


LBDD9 


BDD9 


CURLIN 


0068 


DVEC11 


C859 


HORBYT 


00B9 


LAC46 


AC46 


LC002 


C002 


CURPOS 


0088 


DVEC12 


C6B7 


HORDEF 


00C7 


LAC60 


AC60 


LC008 


C008 


CVN 


CD1A 


DVEC13 


CA36 


HOREND 


00C3 


LAC73 


AC73 


LC00B 


C00B 


DA 


FF20 


DVEC14 


C860 


IFCTR 


0004 


LAC7C 


AC7C 


LC037 


C037 


DASCFL 


0958 


DVEC15 


CDF6 


IKEYIM 


0087 


LACEF 


ACEF 


LC057 


C057 


DATEXT 


C294 


DVEC17 


C24D 


INPFLG 


0009 


LAD19 


AD19 


LC0B3 


C0B3 


DATPTR 


0033 


DVEC18 


C990 


INT 


BCEE 


LAD21 


AD21 


LC0DD 


C0DD 


DATTMP 


0035 


DVEC2 


C843 


IRQ 


FFF8 


LAD33 


AD33 


LC0F6 


C0F6 


DATTXT 


0031 


DVEC22 


C29A 


IRQVEC 


010C 


LAD9E 


AD9E 


LC126 


C126 


DBUF0 


0600 


DVEC3 


CB4A 


KEYBUF 


0152 


LADC6 


ADC6 


LC17F 


C17F 


DBUF1 


0700 


DVEC4 


C58F 


KILL 


C6C2 


LADD4 


ADD4 


LC1DB 


C1DB 


DCBPT 


00EE 


DVEC5 


C818 


L813C 


813C 


LADEB 


ADEB 


LC201 


C201 


DCDRV 


00EB 


DVEC6 


C81B 


L8168 


8168 


LAE15 


AE15 


LC214 


C214 


DCNVEC 


C004 


DVEC7 


CA3B 


L8311 


8311 


LAF9A 


AF9A 


LC220 


C220 


DCOPC 


00EA 


DVEC8 


CA4B 


L8316 


8316 


LAFA4 


AFA4 


LC22C 


C22C 


DCSTA 


00F0 


DVERFL 


0987 


L836C 


836C 


LAFB1 


AFB1 


LC236 


C236 
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LC23E 


C23E 


LC657 


C657 


LC956 


C956 


LCCB4 


CCB4 


LD07B 


D07B 


LC278 


C278 


LC658 


C658 


LC959 


C959 


LCCB8 


CCB8 


LD07E 


D07E 


LC2A7 


C2A7 


LC65F 


C65F 


LC964 


C964 


LCCBD 


CCBD 


LD0A5 


D0A5 


LC2A9 


C2A9 


LC66E 


C66E 


LC979 


C979 


LCCBE 


CCBE 


LD0B0 


D0B0 


LC2CC 


C2CC 


LC678 


C678 


LC985 


C985 


LCCC6 


CCC6 


LD0C0 


D0C0 


LC2D0 


C2D0 


LC683 


C683 


LC9A1 


C9A1 


LCCD2 


CCD2 


LD0CF 


D0CF 


LC2E8 


C2E8 


LC686 


C686 


LC9A2 


C9A2 


LCCD6 


CCD6 


LD102 


D102 


LC2ED 


C2ED 


LC69A 


C69A 


LC9BE 


C9BE 


LCCDE 


CCDE 


LD10B 


D10B 


LC2F2 


C2F2 


LC6A9 


C6A9 


LC9CD 


C9CD 


LCCE2 


CCE2 


LD11B 


DUB 


LC306 


C306 


LC6AC 


C6AC 


LC9D0 


C9D0 


LCCF1 


CCF1 


LD11E 


DUE 


LC320 


C320 


LC6B8 


C6B8 


LC9F6 


C9F6 


LCCF6 


CCF6 


LD125 


D125 


LC334 


C334 


LC6CF 


C6CF 


LCA01 


CA01 


LCCFB 


CCFB 


LD12E 


D12E 


LC339 


C339 


LC6E2 


C6E2 


LCA08 


CA08 


LCCFC 


CCFC 


LD135 


D135 


LC33C 


C33C 


LC6F1 


C6F1 


LCA0F 


CA0F 


LCD12 


CD12 


LD149 


D149 


LC348 


C348 


LC70C 


C70C 


LCA11 


CA11 


LCD3A 


CD3A 


LD15C 


D15C 


LC35D 


C35D 


LC714 


C714 


LCA18 


CA18 


LCD3D 


CD3D 


LD162 


D162 


LC38F 


C38F 


LC719 


C719 


LCA2C 


CA2C 


LCD8C 


CD8C 


LD169 


D169 


LC394 


C394 


LC725 


C725 


LCA3F 


CA3F 


LCD96 


CD96 


LD172 


D172 


LC3A7 


C3A7 


LC733 


C733 


LCA4A 


CA4A 


LCDDA 


CDDA 


LD18E 


D18E 


LC3AA 


C3AA 


LC73E 


C73E 


LCA53 


CA53 


LCDE1 


CDE1 


LD19F 


D19F 


LC3B1 


C3B1 


LC749 


C749 


LCA58 


CA58 


LCE0D 


CE0D 


LD1B7 


D1B7 


LC3E0 


C3E0 


LC754 


C754 


LCA80 


CA80 


LCE10 


CE10 


LD1B8 


D1B8 


LC3E5 


C3E5 


LC756 


C756 


LCA8E 


CA8E 


LCE2B 


CE2B 


LD1C1 


D1C1 


LC3FC 


C3FC 


LC766 


C766 


LCA9B 


CA9B 


LCE4E 


CE4E 


LD1E0 


D1E0 


LC404 


C404 


LC76C 


C76C 


LCA9F 


CA9F 


LCE80 


CE80 


LD1E5 


D1E5 


LC40A 


C40A 


LC76D 


C76D 


LCAA1 


CAA1 


LCE8C 


CE8C 


LD1F0 


D1F0 


LC419 


C419 


LC78F 


C78F 


LCAB8 


CAB8 


LCEBF 


CEBF 


LD202 


D202 


LC45C 


C45C 


LC798 


C798 


LCAC3 


CAC3 


LCED7 


CED7 


LD20D 


D20D 


LC468 


C468 


LC7B6 


C7B6 


LCAD8 


CAD8 


LCED9 


CED9 


LD211 


D211 


LC496 


C496 


LC7B8 


C7B8 


LCAD9 


CAD9 


LCEDF 


CEDF 


LD212 


D212 


LC4A2 


C4A2 


LC7BC 


C7BC 


LCAE0 


CAE0 


LCEE5 


CEE5 


LD221 


D221 


LC4BC 


C4BC 


LC7C8 


C7C8 


LCAE2 


CAE2 


LCF02 


CF02 


LD223 


D223 


LC4C2 


C4C2 


LC7CD 


C7CD 


LCAEE 


CAEE 


LCF07 


CF07 


LD235 


D235 


LC4CC 


C4CC 


LC7D6 


C7D6 


LCAF1 


CAF1 


LCF1E 


CF1E 


LD239 


D239 


LC4DE 


C4DE 


LC7D7 


C7D7 


LCAFD 


CAFD 


LCF28 


CF28 


LD257 


D257 


LC4E3 


C4E3 


LC7DD 


C7DD 


LCB0D 


CB0D 


LCF31 


CF31 


LD26A 


D26A 


LC4EC 


C4EC 


LC7F9 


C7F9 


LCB17 


CB17 


LCF37 


CF37 


LD271 


D271 


LC500 


C500 


LC7FE 


C7FE 


LCB43 


CB43 


LCF39 


CF39 


LD272 


D272 


LC50B 


C50B 


LC815 


C815 


LCB45 


CB45 


LCF75 


CF75 


LD27F 


D27F 


LC50F 


C50F 


LC836 


C836 


LCB52 


CB52 


LCF7A 


CF7A 


LD291 


D291 


LC53A 


C53A 


LC85F 


C85F 


LCB68 


CB68 


LCF7D 


CF7D 


LD2AC 


D2AC 


LC559 


C559 


LC884 


C884 


LCB6E 


CB6E 


LCF92 


CF92 


LD2B3 


D2B3 


LC57C 


C57C 


LC887 


C887 


LCB8C 


CB8C 


LCF93 


CF93 


LD2C0 


D2C0 


LC58D 


C58D 


LC88A 


C88A 


LCB98 


CB98 


LCFA3 


CFA3 


LD2E1 


D2E1 


LC597 


C597 


LC897 


C897 


LCB9A 


CB9A 


LCFA6 


CFA6 


LD2EE 


D2EE 


LC5BF 


C5BF 


LC8BC 


C8BC 


LCBC3 


CBC3 


LCFB6 


CFB6 


LD330 


D330 


LC5CC 


C5CC 


LC8C0 


C8C0 


LCBC4 


CBC4 


LCFC7 


CFC7 


LD335 


D335 


LC5D1 


C5D1 


LC8C5 


C8C5 


LCBE1 


CBE1 


LCFCB 


CFCB 


LD33E 


D33E 


LC5D5 


C5D5 


LC8CA 


C8CA 


LCBEB 


CBEB 


LCFD4 


CFD4 


LD360 


D360 


LC5E4 


C5E4 


LC8CF 


C8CF 


LCC11 


ecu 


LCFDD 


CFDD 


LD367 


D367 


LC5FA 


C5FA 


LC8E6 


C8E6 


LCC2E 


CC2E 


LCFE7 


CFE7 


LD36F 


D36F 


LC5FC 


C5FC 


LC8ED 


C8ED 


LCC3D 


CC3D 


LCFED 


CFED 


LD371 


D371 


LC604 


C604 


LC8EF 


C8EF 


LCC44 


CC44 


LCFFE 


CFFE 


LD384 


D384 


LC626 


C626 


LC902 


C902 


LCC4A 


CC4A 


LD003 


D003 


LD388 


D388 


LC62B 


C62B 


LC909 


C909 


LCC71 


CC71 


LD03D 


D03D 


LD38E 


D38E 


LC631 


C631 


LC910 


C910 


LCC85 


CC85 


LD042 


D042 


LD394 


D394 


LC650 


C650 


LC922 


C922 


LCC9A 


CC9A 


LD056 


D056 


LD398 


D398 


LC654 


C654 


LC931 


C931 


LCCA7 


CCA7 


LD067 


D067 


LD3CC 


D3CC 
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LD3D6 


D3D6 


LD768 


D768 


RVEC13 


0185 


V42 


0042 


LD3E6 


D3E6 


LD770 


D770 


RVEC14 


0188 


V43 


0043 


LD3FC 


D3FC 


LD778 


D778 


RVEC15 


018B 


V44 


0044 


LD41A 


D41A 


LD782 


D782 


RVEC16 


018E 


V45 


0045 


LD42B 


D42B 


LD784 


D784 


RVEC17 


0191 


V46 


0046 


LD42E 


D42E 


LD78E 


D78E 


RVEC18 


0194 


V47 


0047 


LD436 


D436 


LD798 


D798 


RVEC19 


0197 


V48 


0048 


LD439 


D439 


LD7A2 


D7A2 


RVEC2 


0164 


V4A 


004A 


LD45C 


D45C 


LD7AA 


D7AA 


RVEC20 


019A 


V4B 


004B 


LD45F 


D45F 


LD7BB 


D7BB 


RVEC21 


019D 


V4D 


004D 


LD465 


D465 


LD7DA 


D7DA 


RVEC22 


01A0 


V973 


0973 


LD489 


D489 


LINBUF 


02DC 


RVEC23 


01A3 


V974 


0974 


LD4A1 


D4A1 


LINHDR 


02DA 


RVEC24 


01A6 


V976 


0976 


LD4C4 


D4C4 


LIST 


B764 


RVEC3 


0167 


V977 


0977 


LD4CB 


D4CB 


LOAD 


C99A 


RVEC4 


016A 


V978 


0978 


LD4D3 


D4D3 


LOC 


CD36 


RVEC5 


016D 


VAB 


00AB 


LD4D5 


D4D5 


LOF 


CD5B 


RVEC6 


0170 


VAC 


00AC 


LD4D6 


D4D6 


LPTBTD 


0095 


RVEC7 


0173 


VAD 


00AD 


LD4E0 


D4E0 


LPTCFW 


0099 


RVEC8 


0176 


VAE 


00AE 


LD519 


D519 


LPTLCF 


009A 


RVEC9 


0179 


VALTMP 


0006 


LD525 


D525 


LPTLND 


0097 


RVSEED 


0115 


VARDES 


003B 


LD533 


D533 


LPTPOS 


009C 


SAMREG 


FFC0 


VARNAM 


0037 


LD55C 


D55C 


LPTWID 


009B 


SAVE 


C932 


VARPTR 


0039 


LD562 


D562 


LSET 


D026 


SCALE 


00E9 


VARTAB 


001B 


LD582 


D582 


LSTTXT 


0066 


SETFLG 


00C2 


VCB 


00CB 


LD585 


D585 


MEMSIZ 


0027 


SNDDUR 


008D 


VCD 


00CD 


LD59B 


D59B 


MERGE 


C98B 


SNDTON 


008C 


VCF 


00CF 


LD5AD 


D5AD 


MKN 


CD28 


STRBUF 


03D7 


VD1 


00D1 


LD5D5 


D5D5 


NMI 


FFFC 


STRDES 


0056 


VD3 


00D3 


LD5DB 


D5DB 


NMIFLG 


0982 


STRINOUT 


B99C 


VD4 


00D4 


LD5FF 


D5FF 


NMIVEC 


0109 


STRSTK 


01A9 


VD5 


00D5 


LD608 


D608 


NOTELN 


00E1 


STRTAB 


0023 


VD6 


00D6 


LD60E 


D60E 


OCTAVE 


00DE 


SW2VEC 


0103 


VD7 


00D7 


LD616 


D616 


OLDPTR 


002D 


SW3VEC 


0100 


VD8 


00D8 


LD618 


D618 


OLDTXT 


0029 


SWI 


FFFA 


VD9 


00D9 


LD61B 


D61B 


PIA0 


FF00 


SWI2 


FFF4 


VDA 


00DA 


LD644 


D644 


PIA1 


FF20 


SWI3 


FFF2 


VERBEG 


00BF 


LD64F 


D64F 


PIA2 


FF40 


SWIVEC 


0106 


VERDEF 


00C9 


LD650 


D650 


PLYTMR 


00E3 


SYNCLN 


0092 


VEREND 


00C5 


LD667 


D667 


PMODE 


00B6 


SYNCOMMA 


B26D 


VERIFY 


D65B 


LD672 


D672 


POTVAL 


015A 


TEMPO 


00E2 


VIDRAM 


0400 


LD68B 


D68B 


PRTDEV 


006E 


TEMPPT 


000B 


VOLHI 


00DF 


LD69F 


D69F 


RDYTMR 


0985 


TEMPTR 


000F 


VOLLOW 


00E0 


LD6AD 


D6AD 


RELFLG 


000A 


TIMOUT 


00E7 


WCOLOR 


00B4 


LD6BE 


D6BE 


RELPTR 


003D 


TIMVAL 


0112 


WFATVL 


097A 


LD6C5 


D6C5 


RENAME 


CF3F 


TINPTR 


002F 


WRITE 


CF8A 


LD6D4 


D6D4 


RESETV 


FFFE 


TMPLOC 


0003 


XBWMST 


80C0 


LD6DD 


D6DD 


RESSGN 


0062 


TMPSTK 


00DC 


XVEC15 


8846 


LD6DE 


D6DE 


RNBFAD 


0948 


TMPTR1 


0011 


XVEC17 


88F0 


LD6E0 


D6E0 


ROMPAK 


C000 


TOPRAM 


0074 


XVEC18 


829C 


LD6EC 


D6EC 


RSET 


D025 


TRCFLG 


00AF 


XVEC3 


8273 


LD6FD 


D6FD 


RSTFLG 


0071 


TRELFL 


003F 


XVEC4 


8CF1 


LD700 


D700 


RSTVEC 


0072 


TXTTAB 


0019 


XVEC8 


8286 


LD705 


D705 


RVEC0 


015E 


UNLOAD 


D146 


XVEC9 


8E90 


LD707 


D707 


RVEC1 


0161 


USRADR 


00B0 


ZERO 


008A 


LD708 


D708 


RVEC10 


017C 


USRJMP 


0112 






LD737 


D737 


RVEC11 


017F 


V40 


0040 






LD739 


D739 


RVEC12 


0182 


V41 


0041 
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DISK BASIC UNRAVELLED II APPENDIX F ORIGIN : SPECTRAL ASSOC 

DISK ROUTINES AND ENTRY POINTS REVISED: 12/26/1999 WALTER K ZYDHEK 



MODIFIED 1.1 1.0 

REGISTERS ADDRESS ADDRESS DESCRIPTION 

B,X,Y,U C48D C468 OPEN DISK FILE - enter with the mode (I,0,D,R) in 

ACCA, file number in ACCB, filename. ext in DNAMBF, 
and DFLTYP, DASCFL & DFFLEN initialized. An FCB 
will be opened and initialized but any errors will 
cause control to be returned to BASIC. 

A,B,X,U C52D C500 INITIALIZE FCB FOR INPUT - enter with the address 

of the desired FCB in FCBTMP and valid directory 
information in V973-V978. The FCB will be properly 
initialized and the directory will be loaded with 
the number of bytes in the last sector of the file. 

A,B,X,U C538 C50B INITITALIZE FCB - this is the same as initialize 

FCB for input except that the number of bytes in 
the last sector is not written into the directory. 

A,B,X,U C567 C53A SET UP DIRECTORY ENTRY - scan the directory for the 

first unused entry and open a file for the infor- 
mation contained in DNAMBF, DFLTYP, and DASCFL. 
The first unused directory entry will be allocated 
to the file as will the first unused granule. 

A C5C4 C597 DISK CONSOLE IN - get a byte from the already OPENed 

disk file specified by DEVNUM. Return the byte in 
ACCA. 

ALL C68C C65F SEARCH DIRECTORY - search the directory for the 

filename and extension located in DNAMBF. Set the 
variables V973-V978 accordingly. 

ALL C6F5 C6C8 KILL FILE - kill the file whose name is in DNAMBF. 

A,B,X,U C70F C6E2 FREE FILE GRANULES - enter with the number of the 

first granule in a file in ACCB. Free (set to $FF) 

all of the granules in that file and save the new 
FAT on the disk. 

X C744 C714 SET X TO FILE BUFFER - enter with ACCB containing 

the file number. Return with X pointing to the 
correct FCB and the flags set according to the 
file type. 

X C755 C725 SET X TO FAT - point X to the FAT RAM image for thE 

drive number stored in DCDRV. 

A,B C763 C733 CONVERT GRANULE TO TRACK & SECTOR - enter with X 

pointing to an FCB. The current granule number 
(FCBCGR) will be converted to the equivalent track 
and sector numbers in DCTRK & DSEC. 

A,B C779 C749 MULTIPLY ACCD BY NINE - multiply the value in ACCD 

by nine. 

A,B C784 C754 CONVERT SECTORS TO GRANULE - enter with a total 

number of sectors in ACCD. Convert this number into 
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DISK ROUTINES AND ENTRY POINTS REVISED: 12/26/1999 WALTER K ZYDHEK 

the number of complete granules (0-67) contained in 
that many sectors and return the count in ACCD. 

A,B,X C79D C76D READ FAT DATA - load the RAM image of the FAT with 

data from the disk. Data will not be loaded into 
the RAM image if any disk files are OPEN. 

A,B,X C7BF C78F FIND FREE GRANULE - find the first free granule. 

Enter with the granule at which to start the search 
in ACCB. The found granule is marked with a $C0 to 
indicate that it is the last granule in the file 
and the number of the granule is returned in ACCA. 

B,X C807 C7D7 FILE OPEN CHECK - check all active files to make 

sure a file is not already OPEN. Enter with ACCA 
containing a file type to disable the AO error 
for that file type. 

A,B,X,U C935 C887 GET FI LENAME . EXT : DRIVE FROM BASIC - get the file- 
name extension and drive number from a BASIC input 
line. 

A,B,X,U CD1E CC44 GET GRANULE COUNT - enter with the granule number 

of the first granule in a file. The number of whole 
granules in that file will be returned in ACCA. 
ACCB will contain the data from the last granule in 
the f i 1 e. 

A,B,X CEA8 CDCC GET FREE GRANULE COUNT - enter with a drive number 

(0-3) in ACCB, return the number of free granules 
in floating point accumulator 0. 

NONE D75F D66C DSKCON - universal disk I/O routine. A detailed ex- 
planation is available in the Color Computer disk 
user ' s manual . 

A,B,X D7B8 D6C5 RESTORE HEAD TO TRACK ZERO - restore the head for 

the drive in DCDRV to track zero. Return DCSTA = 
$10 if there is a SEEK error. 

ALL D7F8 D705 READ ONE SECTOR - read one sector as specified by 

the DSKCON parameters (DSEC.DCTRK, DCDRV) and store 
the data at the address in DCBPT. 

ALL D7FB D708 WRITE ONE SECTOR - write one sector as specified by 

the DSKCON parameters (DSEC.DCTRK, DCDRV) and get 
the data to go on the disk from the address in DCBPT. 
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1. 

START 


1 

END 


1. 
START 



END 


C000 


C001 


C000 


C001 


C004 


C00B 


C004 


C007 


C109 


C112 


C0F6 


C0FF 


C113 


C138 


C100 


C125 


C139 


C191 


C126 


C17E 


C192 


C1F0 


C17F 


C1DA 


C1F1 


C218 


C1DB 


C200 


C219 


C22B 


C201 


C213 


C22C 


C237 


C214 


C21F 


C290 


C2A5 


C278 


C28D 


C2A6 


C2B1 


C28E 


C299 


D35F 


D398 


D272 


D2AB 


D6D4 


D6EB 


D5E7 


D5FE 


D895 


D89C 


D7A2 


D7A9 


D89D 


D8A0 


D7AA 


D7AD 



DESCRIPTION 

DISK BASIC ROM IDENTIFIER 

INDIRECT JUMP TABLE 

COMMAND INTERPRETATION TABLE ROM IMAGE 

RAM HOOKS ROM IMAGE 

COPYRIGHT MESSAGES 

PRIMARY RESERVED WORD TABLE 

PRIMARY RESERVED WORD DISPATCH TABLE 

SECONDARY RESERVED WORD TABLE 

SECONDARY RESERVED WORD DISPATCH TABLE 

ERROR MESSAGES 

DISK FILE EXTENSION MESSAGES 

INSERT SOURCE/DESTINATION MESSAGES 

DISK FORMATTING DATA TABLE 

DSKCON OPERATION CODE JUMP VECTORS 

DSKREG MASKS FOR DRIVE SELECT 
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APPENDIX H 
DISK ERROR ENTRY POINTS 



ORIGIN:SPECTRAL ASSOC 
REVISED:12/26/1999 WALTER K ZYDHEK 



There are times when it is useful to cause an error message to be 
printed to the screen in the same manner that BASIC prints its error 
messages. The following table is provided to give the user the DISK 
BASIC entry points which will cause error messages to be printed to 
the screen. A JMP to one of these error message routines will cause 
the two letter short form error message to be printed on the screen 
and a pseudo warm start into BASIC will be taken. The pseudo warm 
start will reset the stack, the string stack and the continue pointer 
and jump to BASIC s direct mode (OK). 

DISK BASIC ERROR JUMPS 







1.1 


1.0 


1.1 


1.0 


NAME 


NBR 


LABEL 


LABEL 


ADDR 


ADDR 


10 


20 


LD709 


LD616 


D709 


D616 


IE 


23 


LC352 


LC334 


C352 


C334 


NE 


26 


LC6E5 


LC6B8 


C6E5 


C6B8 


BR 


27 


LC30B 


LC2ED 


C30B 


C2ED 


DF 


28 


LC7F8 


LC7C8 


C7F8 


C7C8 


OB 


29 


LC504 


LC4DE 


C504 


C4DE 


FN 


31 


LC978 


LC8CA 


C978 


C8CA 


FS 


32 


LC653 


LC626 


C653 


C626 


FO 


34 


LD0DA 


LCFFE 


D0DA 


CFFE 


SE 


35 


LD119 


LD03D 


D119 


D03D 


VF 


36 


LD74A 


LD657 


D74A 


D657 


ER 


37 


LCDCB 


LCFF1 


CDCB 


CFF1 



DESCRIPTION 

INPUT/OUTPUT 

INPUT PAST END OF FILE 

FILE NOT FOUND 

BAD RECORD 

DISK FULL 

OUT OF BUFFER SPACE 

BAD FILE NAME 

BAD FILE STRUCTURE 

FIELD OVERFLOW 

SET TO NON-FIELDED STRING 

VERIFICATION ERROR 

WRITE OR INPUT PAST END OF RECORD 



There are no unconditional jump entry points for error #30 (WP - 
Write Proctected) or error #33 (AE - file Already Exists). These 
errors may be generated by loading a value equal to 2*(error number) 
into ACCB and then JMPing to AC46. 
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DISPLAY CHARACTER SET 



HEX 


VALUE 


CHARACTER 


HEX 


VALUE 


CHARACTER 


HEX 


VALUE 


CHARACTER 


Non- 




Non- 




Non- 




Inverted 


Inverted 




Inverted 


Inverted 




Inverted 


Inverted 




00 


40 


e 


18 


58 


X 


30 


40 





01 


41 


A 


19 


59 


Y 


31 


41 


1 


02 


42 


B 


1A 


5A 


Z 


32 


42 


2 


03 


43 


C 


IB 


5B 


[ 


33 


43 


3 


04 


44 


D 


1C 


5C 


\ 


34 


44 


4 


05 


45 


E 


ID 


5D 


] 


35 


45 


5 


06 


46 


F 


IE 


5E 


* 


36 


46 


6 


07 


47 


G 


IF 


5F 


«- 


37 


47 


7 


08 


48 


H 


20 


60 




38 


48 


8 


09 


49 


I 


21 


61 


i 


39 


49 


9 


0A 


4A 


J 


22 


62 


" 


3A 


4A 




0B 


4B 


K 


23 


63 


# 


3B 


4B 


> 


0C 


4C 


L 


24 


64 


$ 


3C 


4C 


< 


0D 


4D 


M 


25 


65 


% 


3D 


4D 


= 


0E 


4E 


N 


26 


66 


& 


3E 


4E 


> 


0F 
10 


4F 
50 



P 


27 
28 


67 
68 


( 


3F 


4F 


? 








11 


51 


Q 


29 


69 


) 








12 


52 


R 


2A 


6A 


* 








13 


53 


S 


2B 


6B 


+ 








14 


54 


T 


2C 


6C 


> 








15 


55 


U 


2D 


6D 


- 








16 


56 


V 


2E 


6E 










17 


57 


w 


2F 


6F 


/ 
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